bf <- system.file("extdata", "ex1.bam", package="Rsamtools", mustWork=TRUE)
gal <- readGAlignmentsFromBam(bf)
gr <- GRanges(c("seq1", "seq1", "seq2"), IRanges(c(3, 69, 1529), width=5))
mapCoords(gr, gal)
Run the code above in your browser using DataLab