CODE EXAMPLE FOR R

moving average in r

zoo::rollmean(x, k, fill = if (na.pad) NA, na.pad = FALSE, 
  align = c("center", "left", "right"), ...)