library(rbamtools)
bam<-system.file("extdata", "accepted_hits.bam", package="rbamtools")
idx<-paste(bam,"bai",sep=".")
# Open BAM file
reader<-bamReader(bam)
# Load BAM index file
load.index(reader,idx)
coords<-as.integer(c(0,0,249250621))
gl<-gapList(reader,coords)
size(gl)
nAligns(gl)
nGapAligns(gl)
gl
df<-as.data.frame(gl)
head(df)
bamClose(reader)
Run the code above in your browser using DataLab