a <- GRanges(seqnames = "chr1",
ranges = IRanges(start = 1000, end = 5000),
strand = "-")
if (interactive()) {
intSel(a)
}
b <- GRanges(seqnames = "chr2",
ranges = IRanges(start = 10000, end = 50000),
strand = "-")
intSel(gr = b, new.start = 12345, new.end = 49999)
Run the code above in your browser using DataLab