From 3861d4568d6f8d5320f305cc889f107fbdf1057a Mon Sep 17 00:00:00 2001
From: "Gervaise H. Henry" <gervaise.henry@utsouthwestern.edu>
Date: Fri, 2 Nov 2018 13:51:19 -0500
Subject: [PATCH] Fix LE comparison for DEG for DS.D17
---
r.scripts/sc-TissueMapper_RUN.DS_D17.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/r.scripts/sc-TissueMapper_RUN.DS_D17.R b/r.scripts/sc-TissueMapper_RUN.DS_D17.R
index 08ffd9a..653a8fd 100644
--- a/r.scripts/sc-TissueMapper_RUN.DS_D17.R
+++ b/r.scripts/sc-TissueMapper_RUN.DS_D17.R
@@ -351,7 +351,7 @@ genes.deg.Epi <- scDEG(sc10x,i="Lin",g.1="Epi",g.2="St",t=2)
genes.deg.St <- scDEG(sc10x,i="Lin",g.1="St",g.2="Epi",t=2)
genes.deg.BE <- scDEG(sc10x.Epi.NE,i="Epi.dws.sc",g.1="BE",g.2=c("LE","OE_SCGB","OE_KRT13"),pct=0.25,t=2)
-genes.deg.LE <- scDEG(sc10x.Epi.NE,i="Epi.dws.sc",g.1="LE",g.2=c("BE","LE","OE_SCGB","OE_KRT13"),pct=0.25,t=2)
+genes.deg.LE <- scDEG(sc10x.Epi.NE,i="Epi.dws.sc",g.1="LE",g.2=c("BE","OE_SCGB","OE_KRT13"),pct=0.25,t=2)
genes.deg.OE1 <- scDEG(sc10x.Epi.NE,i="Epi.dws.sc",g.1="OE_SCGB",g.2=c("BE","LE","OE_KRT13"),pct=0.25,t=2)
genes.deg.OE2 <- scDEG(sc10x.Epi.NE,i="Epi.dws.sc",g.1="OE_KRT13",g.2=c("BE","LE","OE_SCGB"),pct=0.25,t=2)
--
GitLab