# NOT RUN {
library(TxDb.Hsapiens.UCSC.hg19.knownGene)
txdb <- TxDb.Hsapiens.UCSC.hg19.knownGene
test_path <- file.path(system.file(package="pulseTD"),'extdata/test1.sorted.bam')
test_path2 <- file.path(system.file(package="pulseTD"),'extdata/test2.sorted.bam')
# }
# NOT RUN {
rpkmres <- estimateExpression(txdb,c(test_path,test_path2), by='gene')
# }
# NOT RUN {
data('rpkmres', package='pulseTD')
head(rpkmres$total_exp)
head(rpkmres$pre_exp)
# }
Run the code above in your browser using DataLab