sc_DEG: save as .txt, save all DEGs in .Rda

r.scripts/sc_DEG.R

@@ -124,4 +124,6 @@ for (i in ls(pattern="^DEG")){
 }
 
 cat(row.names(DEG.Stress),file=paste0("./analysis/",opt$g,"/global/DEG/DWS.scStress.txt"),sep="\n")
-cat(row.names(DEG.NE.vs.Epi),file=paste0("./analysis/",opt$g,"/global/DEG/DWS.scNE.txt"),sep="\n")
\ No newline at end of file
+cat(row.names(DEG.NE.vs.Epi),file=paste0("./analysis/",opt$g,"/global/DEG/DWS.scNE.txt"),sep="\n")
+
+save(list=ls(pattern="^DEG."),file=paste0("./analysis/",opt$g,"/global/DEG/DEG.Rda"))
\ No newline at end of file