diff --git a/r.scripts/sc-TissueMapper_RUN.PdPbPc.Pd.R b/r.scripts/sc-TissueMapper_RUN.PdPbPc.Pd.R
index 0aef238e31be5ab227e6781e26d07a768aaf3920..065e8aab7df26418a999bc5ba69eee19987739b8 100644
--- a/r.scripts/sc-TissueMapper_RUN.PdPbPc.Pd.R
+++ b/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]]