! 圧縮アルゴリズム

:ランレングス:

 > 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