starts <- seq(100, 500, length.out=5)
gr1 <- GRanges(Rle('chr1'),
ranges=IRanges(start=starts, end=starts+100))
starts <- seq(300, 700, length.out=5)
gr2 <- GRanges(Rle('chr1'),
ranges=IRanges(start=starts+50, end=starts+120))
overlapOfGRanges(GRlist=list(gr1, gr2), plot=FALSE)
Run the code above in your browser using DataLab