IRanges_manipulations.r

range1 <- IRanges(start=c(10,50,300),end =c(60,90,456))
range1
#IRanges of length 3
#    start end width
#[1]    10  60    51
#[2]    50  90    41
#[3]   300 456   157

reduce(range1)
#IRanges of length 2
#    start end width
#[1]    10  90    81
#[2]   300 456   157

disjoin(range1)
#IRanges of length 4
#    start end width
#[1]    10  49    40
#[2]    50  60    11
#[3]    61  90    30
#[4]   300 456   157

range2 <- IRanges(start=c(20,250),end =c(30,320))
findOverlaps(range2,range1)
#Hits of length 2
#queryLength: 2
#subjectLength: 3
#  queryHits subjectHits 
#   <integer>   <integer> 
# 1         1           1 
# 2         2           3

nearest(range2,range1)
#[1] 1 3