Commit 7a5d958b authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Fix merge

parent c8a38d4a
......@@ -109,7 +109,7 @@ if (length(merges)>1){
rm(sc10x.merge)
} else if (length(merges)==1){
merges <- c(merges,names(counts.cell.destress[counts.cell.destress == min(sapply(counts.cell.destress[setdiff(as.character(unlist(sc10x.groups[sc10x.groups$Keep==1,1])),merges)],min))]))
sc10x.merge <- merge(x=sc10x.med[[merges[1]]],y=sc10x.med[merges[-1]])
sc10x.merge <- merge(x=sc10x[[merges[1]]],y=sc10x[merges[-1]])
sc10x[merges] <- NULL
sc10x$merge <- sc10x.merge
}
......
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