Add set.seed to QuSAGE downsample

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]
     }