# NOT RUN {
marker.genes <- findMarkers(demo.obj,fold.change = 2,padjval = 0.1,uniq = TRUE)
MyGenes <- top.markers(marker.genes, topde = 10, min.base.mean = 0.8)
heatmap.gg.plot(demo.obj,
gene = MyGenes,
out.name = "plot",
cluster.by = "clusters",
interactive = FALSE)
# }
Run the code above in your browser using DataLab