R/moving.average.R

#' Moving average
#'
#' @author D'Arcy Webber
#' @export
#' 
moving_average <- function(x, n = 11)
{
    stats::filter(x, rep(1/n, n), sides = 1)
}
NZRLIC/RLPlots documentation built on May 7, 2019, 6:05 p.m.