Add set.seed to QuSAGE downsample

0fc0965a · Gervaise Henry · 0d605c79 · 0fc0965a
Commit 0fc0965a authored Jan 12, 2019 by Gervaise Henry 🤠
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

r.scripts/sc-TissueMapper_functions.R r.scripts/sc-TissueMapper_functions.R +1 -0

No files found.
--- a/r.scripts/sc-TissueMapper_functions.R
+++ b/r.scripts/sc-TissueMapper_functions.R
@@ -506,6 +506,7 @@ scQuSAGE <- function(sc10x,gs,save=FALSE,type,id,ds=0,nm="pops",print="tsne"){
  for (i in unique(labels)){
    cell <- WhichCells(sc10x,ident=sub("Cluster_","",i))
    if (length(cell)>ds & ds!=0){
+      set.seed(71682)
      rnd <- sample(1:length(cell),ds)
      cell <- cell[rnd]
    }