## Not run:
# sample_sheet_small <- read.delim("../data/sample_sheet_small.txt", row.names=1)
# sample_sheet_small$Time <- as.factor(sample_sheet_small$Time)
# gene_annotations_small <- read.delim("../data/gene_annotations_small.txt", row.names=1)
# fpkm_matrix_small <- read.delim("../data/fpkm_matrix_small.txt")
# pd <- new("AnnotatedDataFrame", data = sample_sheet_small)
# fd <- new("AnnotatedDataFrame", data = gene_annotations_small)
# HSMM <- new("CellDataSet", exprs = as.matrix(fpkm_matrix_small), phenoData = pd, featureData = fd)
# ## End(Not run)
Run the code above in your browser using DataLab