Gaussian white noise series

Gaussian white noise series (top) and the three-point moving average of the Gaussian white noise series (bottom)

> w = rnorm(500,0,1)
> w = rnorm(500,0,1)
> par(mfrow=c(2,1))
> plot.ts(w, main="white noise")
> v = filter(w, sides=2, rep(1/3,3))
> plot.ts(v, main="moving average")