Use all cells for lung liniage QuSAGE

r.scripts/sc-TissueMapper_RUN.Pd.R

@@ -387,7 +387,7 @@ gene.set <- c(gene.set,gene.set1)
 rm(gene.set1)
 rm(gene.orthog)
 gene.set <- lapply(gene.set,droplevels)
-results.cor.Epi.MusLungHierarchy <- scQuSAGEsm(sc10x.Epi,gs=gene.set,ds=min.epi,nm="Epi.dws.sub_NE",folder="MusLungHierarchy")
+results.cor.Epi.MusLungHierarchy <- scQuSAGEsm(sc10x.Epi,gs=gene.set,ds=0,nm="Epi.dws.sub_NE",folder="MusLungHierarchy")
 rm(gene.set)
 
 gene.set.c2.all <- read.gmt("./genesets/c2.all.v6.1.symbols.gmt")