R/rle.start.R

#'@rdname internal
`rle.start` <- function (x){
  pl <- cumsum(c(1, x$length))
  start <- pl[-length(pl)]
  return(start)
}
#'@rdname internal
`rle.end` <- function(x){
  end <- cumsum(x$length)
  return(end)
}

Try the IHA package in your browser

Any scripts or data that you put into this service are public.

IHA documentation built on May 2, 2019, 5:15 p.m.