powered by
## S3 method for class 'default': seqToIntervals(idx, ...)
vector
integer
matrix
*intervalsToSeq()
rle
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