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