if(require(bsseqData)) {
data(BS.cancer.ex.tstat)
head(getStats(BS.cancer.ex.tstat))
reg <- GRanges(seqnames = c("chr22", "chr22"),
ranges = IRanges(start = c(1, 2*10^7), end = c(2*10^7 +1, 4*10^7)))
head(getStats(BS.cancer.ex.tstat, regions = reg))
}
Run the code above in your browser using DataLab