R/utils.R

Defines functions data.set.ts2

#' @importFrom zoo zoo
data.set.ts2 <- function(cpt) {
  ts <- data.set.ts(cpt)
  ts_index <- attr(ts, "index")
  if (!is.null(ts_index)) {
    ts <- zoo(ts, order.by = ts_index)
  }
  ts
}
hoxo-m/changepointExt documentation built on Jan. 15, 2021, 8:59 p.m.