R Notebook

#Gaussian white noise 
v=rnorm(1000,0,1)
#Moving Average with side=2, means past and future,rep(1/3,3)equal weight
m=filter(v,sides = 2,rep(1/3,3))
par(mfrow=c(2,1))
#Time series plot of white noise
plot.ts(v,main="white noise",col="blue")
#Time series plot for moving Average 
plot.ts(m,main="Moving Avearge",col="red")

#Gaussian white noise 
v=rnorm(1000,0,1)
#Moving Average with side=2, means past and future,rep(1/3,3)equal weight
m=filter(v,sides = 1,rep(3/4,1/4,2))
par(mfrow=c(2,1))
#Time series plot of white noise
plot.ts(v,main="white noise",col="blue")
#Time series plot for moving Average 
plot.ts(m,main="Moving Avearge",col="red")