# only run if Seurat is installed
if (require("Seurat")) {
data("pbmc_small")
maskTable <- generateMaskSeurat(pbmc_small)
library(ggplot2)
# not the best plot, see vignettes for better examples
DimPlot(pbmc_small) +
geom_path(data=maskTable, aes(x=tSNE_1, y=tSNE_2, group=group))
}
Run the code above in your browser using DataLab