diff --git a/r.scripts/sc-TissueMapper_RUN.D17_FACS.R b/r.scripts/sc-TissueMapper_RUN.D17_FACS.R
index 7812cd1180f5bd6ac6604f8cd4d15fd8bdae8992..fb8f5a8865a16879e52db962097f7055d68099f4 100644
--- a/r.scripts/sc-TissueMapper_RUN.D17_FACS.R
+++ b/r.scripts/sc-TissueMapper_RUN.D17_FACS.R
@@ -167,13 +167,12 @@ if (opt$st==TRUE){
   sc10x <- scCluster(sc10x,pc.use=pc.use.poststress,res.use=0.5,folder="post.stress",red="pca")
 }
 
-gene.set1 <- read_delim("./genesets/genes.deg.Epi.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
-gene.set1 <- gene.set1[1]
+
+gene.set1 <- read_delim("./genesets/DEG_Epi_5FC.txt","\t",escape_double=FALSE,trim_ws=TRUE,col_names=FALSE)
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "Epi"
 gene.set <- c(gene.set1)
-gene.set1 <- read_delim("./genesets/genes.deg.St.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
-gene.set1 <- gene.set1[1]
+gene.set1 <- read_delim("./genesets/DEG_FMSt_5FC.txt","\t",escape_double=FALSE,trim_ws=TRUE,col_names=FALSE)
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "St"
 gene.set <- c(gene.set,gene.set1)
diff --git a/r.scripts/sc-TissueMapper_RUN.D27_FACS.R b/r.scripts/sc-TissueMapper_RUN.D27_FACS.R
index 61cadc9c0da54b927d49f81fb35f9f76986d82e8..0337bd6bbd42914eed17258f52e65991e66273e0 100644
--- a/r.scripts/sc-TissueMapper_RUN.D27_FACS.R
+++ b/r.scripts/sc-TissueMapper_RUN.D27_FACS.R
@@ -167,13 +167,12 @@ if (opt$st==TRUE){
   sc10x <- scCluster(sc10x,pc.use=pc.use.poststress,res.use=0.5,folder="post.stress",red="pca")
 }
 
-gene.set1 <- read_delim("./genesets/genes.deg.Epi.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
-gene.set1 <- gene.set1[1]
+
+gene.set1 <- read_delim("./genesets/DEG_Epi_5FC.txt","\t",escape_double=FALSE,trim_ws=TRUE,col_names=FALSE)
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "Epi"
 gene.set <- c(gene.set1)
-gene.set1 <- read_delim("./genesets/genes.deg.St.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
-gene.set1 <- gene.set1[1]
+gene.set1 <- read_delim("./genesets/DEG_FMSt_5FC.txt","\t",escape_double=FALSE,trim_ws=TRUE,col_names=FALSE)
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "St"
 gene.set <- c(gene.set,gene.set1)
diff --git a/r.scripts/sc-TissueMapper_RUN.DS_D17.R b/r.scripts/sc-TissueMapper_RUN.DS_D17.R
index fb7d2bc6274a724da4e21a307ed20d0ae6b27370..efec340dbda666de55b016f037b22f4ee3e04c78 100644
--- a/r.scripts/sc-TissueMapper_RUN.DS_D17.R
+++ b/r.scripts/sc-TissueMapper_RUN.DS_D17.R
@@ -180,13 +180,11 @@ if (opt$st==TRUE){
   sc10x <- scCluster(sc10x,pc.use=pc.use.poststress,res.use=opt$res.poststress,folder="post.stress",red="pca")
 }
 
-gene.set1 <- read_delim("./genesets/genes.deg.Epi.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
-gene.set1 <- gene.set1[1]
+gene.set1 <- read_delim("./genesets/DEG_Epi_5FC.txt","\t",escape_double=FALSE,trim_ws=TRUE,col_names=FALSE)
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "Epi"
 gene.set <- c(gene.set1)
-gene.set1 <- read_delim("./genesets/genes.deg.St.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
-gene.set1 <- gene.set1[1]
+gene.set1 <- read_delim("./genesets/DEG_FMSt_5FC.txt","\t",escape_double=FALSE,trim_ws=TRUE,col_names=FALSE)
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "St"
 gene.set <- c(gene.set,gene.set1)