R/adj_method.R

Defines functions adj_method

adj_method <- function(x){
  stopifnot(inherits(x, "seas"))
  if (!is.null(x$spc$seats)) {
    "seats"
  } else if (!is.null(x$spc$x11)) {
    "x11"
  } else {
    "none"
  }
}

Try the seasonalview package in your browser

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

seasonalview documentation built on May 2, 2019, 2:45 a.m.