data(ca533)
yrs=as.numeric(rownames(ca533))
y=ca533[,1]
yrs=yrs[!is.na(y)]
y=y[!is.na(y)]
plot(yrs,y,xlab='Years',ylab='Series1 (mm)',type='l',col='grey')
lines(yrs,hanning(y,n=9),col='red',lwd=2)
lines(yrs,hanning(y,n=21),col='blue',lwd=2)
Run the code above in your browser using DataLab