Skip to content
Snippets Groups Projects
Commit 66e90556 authored by Gervaise Henry's avatar Gervaise Henry :cowboy:
Browse files

Replace left over hardwired merge

parent 28e1dff3
Branches
Tags
2 merge requests!6Develop,!5Refactor
...@@ -109,7 +109,7 @@ merges <- NULL ...@@ -109,7 +109,7 @@ merges <- NULL
# } # }
# rm(merges) # rm(merges)
merges <- NULL 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]){ for (j in sc10x.groups$Samples[sc10x.groups$Keep==1]){
if (sc10x.groups[sc10x.groups$Samples==j,][[opt$m]]==i){ if (sc10x.groups[sc10x.groups$Samples==j,][[opt$m]]==i){
merges <- c(merges,j) merges <- c(merges,j)
......
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