Commit 0fc0965a authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Add set.seed to QuSAGE downsample

parent 0d605c79
......@@ -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]
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment