#############################
### Create dmDSdata object
#############################
### Get kallisto transcript counts from 'PasillaTranscriptExpr' package
library(PasillaTranscriptExpr)
data_dir <- system.file("extdata", package = "PasillaTranscriptExpr")
metadata <- read.table(file.path(data_dir, "metadata.txt"), header = TRUE,
as.is = TRUE)
metadata
counts <- read.table(file.path(data_dir, "counts.txt"), header = TRUE,
as.is = TRUE)
head(counts)
# Create a dmDSdata object
d <- dmDSdata(counts = counts[, metadata$SampleName],
gene_id = counts$gene_id, feature_id = counts$feature_id,
sample_id = metadata$SampleName, group = metadata$condition)
plotData(d)
# Use a subset of genes, which is defined in the following file
gene_id_subset <- readLines(file.path(data_dir, "gene_id_subset.txt"))
d <- d[names(d) %in% gene_id_subset, ]
plotData(d)
Run the code above in your browser using DataLab