## Not run:
# data(HSMM)
# my_genes <- row.names(subset(fData(HSMM), gene_short_name %in% c("CDK1", "MEF2C", "MYH3")))
# cds_subset <- HSMM[my_genes,]
# plot_genes_in_pseudotime(cds_subset, color_by="Time")
# ## End(Not run)
Run the code above in your browser using DataLab