## WARNING: GappedRanges objects are deprecated!
## Not run:
# ## The 3 following IRanges objects are normal. Each of them will be
# ## stored as a "gapped range" in the GappedRanges object 'gr'.
# ir1 <- IRanges(start=c(11, 21, 23), end=c(15, 21, 30))
# ir2 <- IRanges(start=-2, end=15)
# ir3 <- IRanges(start=c(-2, 21), end=c(10, 22))
# irl <- IRangesList(ir1, ir2, ir3)
#
# gr <- as(irl, "GappedRanges")
# gr
#
# length(gr)
# start(gr)
# end(gr)
# width(gr)
# ngap(gr)
# gr[-1]
# gr[ngap(gr) >= 1]
# gr[[1]]
# as.integer(gr[[1]])
# gr[[2]]
# as.integer(gr[[2]])
# as(gr, "RangesList")
# start(as(gr, "RangesList")) # not the same as 'start(gr)'
# ## End(Not run)
Run the code above in your browser using DataLab