library(Rsamtools)
bamFile = system.file("extdata", "SVDetection", "bam", "N01.bam", package="R453Plus1Toolbox")
bam = scanBam(bamFile)
region = RangesList("11"=IRanges(start=118307205, end=118395936))
targetReads = readsOnTarget(bam, region)
sum(targetReads[[1]])
Run the code above in your browser using DataLab