### R code from vignette source 'vignettes/RNASeqDataSubset/inst/doc/RNASeqDataSubset.Rnw' ################################################### ### code chunk number 1: RNASeqDataSubset.Rnw:54-59 ################################################### library("RNASeqDataSubset") fn <- system.file("extdata", "phenoData.txt", package="RNASeqDataSubset") pd <- read.table(fn, header=TRUE, stringsAsFactors=FALSE) ################################################### ### code chunk number 2: RNASeqDataSubset.Rnw:63-66 ################################################### library(xtable) pd <- xtable(pd, caption="Design of the TBX20 experiment") print(pd) ################################################### ### code chunk number 3: RNASeqDataSubset.Rnw:71-74 ################################################### library("Rsamtools") fls <- getBamFileList() bfs <- BamFileList(fls) ################################################### ### code chunk number 4: SessionInfo ################################################### sessionInfo()