R/eventGroup.R

Defines functions eventGroupR

#' @export

eventGroupR <- function(my_vector, threshold) {
  my_rle <- rle(my_vector > threshold)
  my_rle$values <- seq_along(my_rle$values)
  inverse.rle(my_rle)
}
jaspwn/simbaR documentation built on Jan. 30, 2021, 4:09 a.m.