diff --git a/.gitignore b/.gitignore index 74eacbfdda55345c05d3f29b0c55db02b45babc6..fa9ab1fcec34d2887fd38c4119bc31bfd3f714dc 100755 --- a/.gitignore +++ b/.gitignore @@ -10,3 +10,4 @@ WR/ *~ temp_png.png Rplots.pdf +stress/* diff --git a/r.scripts/sc-TissueMapper_RUN.Pd.R b/r.scripts/sc-TissueMapper_RUN.Pd.R index 7772609db250c04cfb7c6511a9d7f3b344563a11..cda01c1cfe464a503f3b246e2743f400cdf5645a 100644 --- a/r.scripts/sc-TissueMapper_RUN.Pd.R +++ b/r.scripts/sc-TissueMapper_RUN.Pd.R @@ -11,6 +11,8 @@ library(monocle) library(dplyr) library(viridis) +options(bitmapType="cairo") + source("../r.scripts/sc-TissueMapper.R") #Create folder structure @@ -411,7 +413,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.sub",g.1="BE",g.2=c("LE","OE1","OE2"),pct=0.25,t=2) -genes.deg.LE <- scDEG(sc10x.Epi.NE,i="Epi.dws.sub",g.1="LE",g.2=c("BE","LE","OE1"),pct=0.25,t=2) +genes.deg.LE <- scDEG(sc10x.Epi.NE,i="Epi.dws.sub",g.1="LE",g.2=c("BE","OE1","OE2"),pct=0.25,t=2) genes.deg.OE1 <- scDEG(sc10x.Epi.NE,i="Epi.dws.sub",g.1="OE1",g.2=c("BE","LE","OE2"),pct=0.25,t=2) genes.deg.OE2 <- scDEG(sc10x.Epi.NE,i="Epi.dws.sub",g.1="OE2",g.2=c("BE","LE","OE1"),pct=0.25,t=2)