R/seasonal.ave.R

`seasonal.ave` <-
function(x, ave.FUN = mean, ...)
{
  result <- ts(start = c(0, 1), end = c(1, 0),
               frequency = frequency(x))
  result[cycle(x)] <- ave(x, cycle(x), FUN = ave.FUN, ...)
  return(result)
}

Try the mar1s package in your browser

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

mar1s documentation built on May 2, 2019, 3:40 p.m.