Commit 8b2d9eb6 authored by Gervaise Henry's avatar Gervaise Henry 🤠

Save singler score heatmap not-normalized version

parent 65f46d3d
......@@ -266,11 +266,16 @@ for (i in c("EpiFMSt","epi","fmst")){
}
plot <- plotScoreHeatmap(singler.lin,show.labels=TRUE,annotation_col=data.frame(ID=sc10x$lin,row.names=rownames(singler.lin)))
postscript(paste0("./analysis/vis/singler/ScoreHeatmap_lin.eps"))
postscript(paste0("./analysis/vis/singler/ScoreHeatmap_lin.norm.eps"))
print(plot)
dev.off()
plot <- plotScoreHeatmap(singler.EpiFMSt,show.labels=TRUE,show.pruned=TRUE,annotation_col=data.frame(first.label=singler.EpiFMSt$first.labels,row.names=rownames(singler.EpiFMSt)))
postscript(paste0("./analysis/vis/singler/ScoreHeatmap_EpiFMSt.norm.eps"))
print(plot)
dev.off()
plot <- plotScoreHeatmap(singler.EpiFMSt,show.labels=TRUE,show.pruned=TRUE,annotation_col=data.frame(first.label=singler.EpiFMSt$first.labels,row.names=rownames(singler.EpiFMSt)),normalize=FALSE)
postscript(paste0("./analysis/vis/singler/ScoreHeatmap_EpiFMSt.eps"))
print(plot)
dev.off()
......
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