From cdda06ae62711bc78014514e4717a618abe72da3 Mon Sep 17 00:00:00 2001
From: "Gervaise H. Henry" <gervaise.henry@utsouthwestern.edu>
Date: Fri, 26 Oct 2018 10:29:13 -0500
Subject: [PATCH] Fix Pd patient subsetting
---
r.scripts/sc-TissueMapper_RUN.PdPbPc.Pd.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/r.scripts/sc-TissueMapper_RUN.PdPbPc.Pd.R b/r.scripts/sc-TissueMapper_RUN.PdPbPc.Pd.R
index 0aef238..065e8aa 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]]
--
GitLab