Fix redudnant rm for sc_QC parameters

r.scripts/sc-TissueMapper_RUN.R

@@ -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)