# 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)
pseudotime.tree(demo.obj,
marker.genes = MyGenes,
type = "unrooted",
clust.method = "complete")
# }
Run the code above in your browser using DataLab