library(rbamtools)
bam_file <- system.file("extdata", "accepted_hits.bam", package="rbamtools")
reader<-bamReader(bam_file)
isOpen(reader)
align<-getNextAlign(reader)
position(align)
name(align)
refID(align)
readBases(align)
qualities(align)
cigarData(align)
bamClose(reader)
Run the code above in your browser using DataLab