R/examples/ex-rle.R

library(magrittr)

x = c(TRUE, TRUE, FALSE, TRUE, TRUE, FALSE)
info = rle_true(x)

x_rev = rle_inverse(info)
all.equal(x, x_rev)

x_rev2 = rle_std(x) %>% rle_inverse()
all.equal(x, x_rev2)
CUG-hydro/heatwave documentation built on Dec. 17, 2021, 1:53 p.m.