ランレングス

圧縮アルゴリズム

ランレングス

> z <- c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE)
> rz = rle(z)
> rz
Run Length Encoding
 lengths: int [1:5] 2 2 1 1 3
 values : logi [1:5] TRUE FALSE TRUE FALSE TRUE

元に戻すには

> inverse.rle(rz)
[1]  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE  TRUE