Fix OE dws deg file locations in DPrF analysis

r.scripts/sc-TissueMapper_RUN.D.R

@@ -216,12 +216,12 @@ gene.set1 <- gene.set1[1]
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "LE"
 gene.set <- c(gene.set,gene.set1)
-gene.set1 <- read_delim("./genesets/genes.deg.OE_SCGB.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
+gene.set1 <- read_delim("./genesets/genes.deg.OE1.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
 gene.set1 <- gene.set1[1]
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "OE_SCGB"
 gene.set <- c(gene.set,gene.set1)
-gene.set1 <- read_delim("./genesets/genes.deg.OE_KRT13.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
+gene.set1 <- read_delim("./genesets/genes.deg.OE2.csv",",",escape_double=FALSE,trim_ws=TRUE,col_names=TRUE)
 gene.set1 <- gene.set1[1]
 gene.set1 <- as.list(gene.set1)
 names(gene.set1) <- "OE_KRT13"