Commit 66e90556 authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Replace left over hardwired merge

parent 28e1dff3
......@@ -109,7 +109,7 @@ merges <- NULL
# }
# rm(merges)
merges <- NULL
for (i in unique(sc10x.groups$Patient[sc10x.groups$Keep==1])){
for (i in unique(sc10x.groups[[opt$m]][sc10x.groups$Keep==1])){
for (j in sc10x.groups$Samples[sc10x.groups$Keep==1]){
if (sc10x.groups[sc10x.groups$Samples==j,][[opt$m]]==i){
merges <- c(merges,j)
......
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