Skip to content

Instantly share code, notes, and snippets.

@UniIsland

UniIsland/moving_average.r

Created February 10, 2018 16:36
Show Gist options
  • Save UniIsland/3ca40a9b2ee842bfd876a0e6354058f0 to your computer and use it in GitHub Desktop.
Save UniIsland/3ca40a9b2ee842bfd876a0e6354058f0 to your computer and use it in GitHub Desktop.
Download ZIP
Calculate Moving Average with R
Raw
moving_average.r
## calculating moving average
## x: data vector
## n: use how many samples
## s: 1 - with lag; 2 - symmetrically
f.ma <- function(x,n=5,s=2){filter(x,rep(1/n,n), sides=s)}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment