## S3 method for class 'default':
seqToIntervals(idx, ...)
*intervalsToSeq()
.x <- 1:10
y <- seqToIntervals(x)
print(y) # [1 10]
x <- c(1:10, 15:18, 20)
y <- seqToIntervals(x)
print(y) # [1 10; 15 18; 20 20]
z <- intervalsToSeq(y)
print(z)
stopifnot(all.equal(x,z))
Run the code above in your browser using DataLab