Remove ridge plot for cell cycle anchors

0d605c79 · Gervaise Henry · abc34a97 · 0d605c79
Commit 0d605c79 authored Jan 12, 2019 by Gervaise Henry 🤠
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 4 deletions

r.scripts/sc-TissueMapper_functions.R r.scripts/sc-TissueMapper_functions.R +0 -4

No files found.
--- a/r.scripts/sc-TissueMapper_functions.R
+++ b/r.scripts/sc-TissueMapper_functions.R
@@ -213,10 +213,6 @@ scCellCycle <- function(sc10x,sub=FALSE){
  
  #plot cell cycle specific genes
  genes=c("PCNA","TOP2A","MCM6","MKI67")
-  postscript(paste0(folder,"Ridge_cc.Raw.eps"))
-  plot <- RidgePlot(object=sc10x,features=genes,log=TRUE,ncol=2)
-  plot(plot)
-  dev.off()
  postscript(paste0(folder,"Violin_cc.Raw.eps"))
  plot <- VlnPlot(object=sc10x,features=genes,ncol=2,pt.size=1)
  plot(plot)