Fix Pd patient subsetting

r.scripts/sc-TissueMapper_RUN.PdPbPc.Pd.R

@@ -145,9 +145,9 @@ if (opt$cc==TRUE){
 }
 gc()
 
-sc10x.D17 <- scSubset(sc10x,"patient","D17")
-sc10x.D27 <- scSubset(sc10x,"patient","D27")
-sc10x.D35 <- scSubset(sc10x,"patient","D35")
+sc10x.D17 <- scSubset(sc10x,"D17","D17")
+sc10x.D27 <- scSubset(sc10x,"D27","D27")
+sc10x.D35 <- scSubset(sc10x,"D35","D35")
 
 results <- sc3CCA(sc10x.D17,sc10x.D27,sc10x.D35,"D17","D27","D35",cc=opt$cc,cca=opt$cca,acca=opt$acca,lx=opt$lx,hx=opt$hx,ly=opt$ly)
 sc10x <- results[[1]]