diff --git a/r.scripts/sc-TissueMapper_RUN.DS_D17.R b/r.scripts/sc-TissueMapper_RUN.DS_D17.R
index 08ffd9a610c9242de76a86afaae25538ed2f936c..653a8fd81c05afc6115c0608496f9aef7578a749 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)