Commit 6e7d9f40 authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Merge samples with < 500 cells prior to integrate

parent 396dedcb
......@@ -53,6 +53,19 @@ rm(results)
# genes.g2m <- results[[3]]
# rm(results)
merges <- NULL
for (i in names(counts.cell.filtered)){
if (counts.cell.filtered[[i]]<500){
merges <- c(merges,i)
}
}
rm(i)
sc10x.merge <- merge(x=sc10x[[merges[1]]],y=sc10x[[merges[-1]]])
sc10x[merges] <- NULL
sc10x$merge <- sc10x.merge
rm(merges)
rm(sc10x.merge)
sc10x <- scCCA(sc10x)
sc10x@project.name <- project.name
sc10x$ALL <- "ALL"
......
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