## the data
library("RnaSeqTutorial")
## get the BamFileList
bamFiles <- getBamFileList(
dir(path=system.file("extdata",
package="RnaSeqTutorial"),
pattern="^[A,T].*\\.bam$",
full.names=TRUE))
## create the AnnotParam
annotParam <- AnnotParam(system.file(
"extdata",
"Dmel-mRNA-exon-r5.52.gff3",
package="RnaSeqTutorial"))
## create the RnaSeqParam
rnaSeqParam <- RnaSeqParam(annotParam=annotParam)
## get a RangedSummarizedExperiment containing the counts table
sexp <- simpleRNASeq(
bamFiles=bamFiles,
param=rnaSeqParam,
verbose=TRUE
)
## get the counts
assay(sexp)$exons
Run the code above in your browser using DataLab