# NOT RUN {
set.seed(0)
ranges <- sort(sample(1:100, 11))
print(ranges)
CollapseRanges(ranges, 6, c(3, 7))
CollapseRanges(ranges, 6, c(3, 7), prefer.low = TRUE)
CollapseRanges(ranges, 6, c(3, 7), prefer.high = TRUE)
# }
Run the code above in your browser using DataLab