Commit 908e1bbc authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Fix redudnant rm for sc_QC parameters

parent 196cb978
......@@ -32,9 +32,6 @@ counts.cell.raw <- results[[2]]
counts.gene.raw <- results[[3]]
counts.cell.filtered <- results[[4]]
counts.gene.filtered <- results[[5]]
rm(lg)
rm(hg)
rm(hm)
rm(results)
results <- scCellCycle(sc10x,sub=FALSE)
......@@ -44,9 +41,9 @@ genes.g2m <- results[[3]]
rm(results)
sc10x.l <- list()
sc10x.l[["D17"]] <- subset(sc10x,subset= D17=="D17")
sc10x.l[["D27"]] <- subset(sc10x,subset= D27=="D27")
sc10x.l[["D35"]] <- subset(sc10x,subset= D35=="D35")
sc10x.l[["Pd"]] <- subset(sc10x,subset= Donor=="Donor")
sc10x.l[["Pb"]] <- subset(sc10x,subset= BPH=="BPH")
sc10x.l[["Pc"]] <- subset(sc10x,subset= Cancer=="Cancer")
sc10x <- scCCA(sc10x.l)
rm(sc10x.l)
......@@ -176,4 +173,4 @@ rm(results)
rm(gene.set)
save(sc0x,file=paste0("./analysis/",project.name,".RData"))
save.image(file="./analysis/Data.RData")
\ No newline at end of file
save.image(file="./analysis/Data.RData")
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