library(GenomicRanges)
grl <- GRangesList(GRanges("1",IRanges(c(100,200,300),width=50)),
GRanges("1",IRanges(c(100,300),width=c(75,50))),
GRanges("1",IRanges(c(100,200,400),width=c(75,50,50))),
GRanges("1",IRanges(c(200,300,400),width=50)))
plotGRL(grl)
Run the code above in your browser using DataLab