Commit 72d56204 authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Fix print umap only

parent 40b5287d
......@@ -615,11 +615,11 @@ scCluster <- function(sc10x,res=0.1,red="pca",dim,print="umap",folder=FALSE,assa
if (print=="tsne"){
postscript(paste0("./analysis/vis/",sub,"tSNE_",i,".eps"))
print(print2)
print(plot2)
dev.off()
} else if (print=="umap"){
postscript(paste0("./analysis/vis/",sub,"UMAP_",i,".eps"))
print(print3)
print(plot3)
dev.off()
} else if (print=="2"){
plot2 <- plot2+theme(legend.position="none")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment