Run Length Encoding with Indices

Usage

rle2(x)


"print"(x, digits = getOption("digits"), prefix = "", ...)

Arguments

x
an atomic vector for rle(); an object of class "rle" for inverse.rle().
...
further arguments; ignored here.
digits
number of significant digits for printing, see print.default.
prefix
character string, prepended to each printed line.

Description

Compute the lengths, values and indices of runs of equal values in a vector. This is a modifed version of base function rle().

Details

Missing values are regarded as unequal to the previous value, even if that is also missing.

inverse.rle() is the inverse function of rle2() and rle(), reconstructing x from the runs.

Value

rle() returns an object of class "rle" which is a list with components:
lengths
an integer vector containing the length of each run.

values
a vector of the same length as lengths with the corresponding values.

Examples

x <- rev(rep(6:10, 1:5))
rle(x)



Run Length Encoding
  lengths: int [1:5] 5 4 3 2 1
  values : int [1:5] 10 9 8 7 6



## lengths [1:5]  5 4 3 2 1
## values  [1:5] 10 9 8 7 6
rle2(x)



Run Length Encoding
  lengths: int [1:5] 5 4 3 2 1
  values : int [1:5] 10 9 8 7 6
  indices: int [1:5] 5 9 12 14 15



## lengths: int [1:5] 5 4 3 2 1
## values : int [1:5] 10 9 8 7 6
## indices: int [1:5] 5 9 12 14 15