powered by
ma(x, order, centre=TRUE)
ksmooth
decompose
plot(wineind) sm <- ma(wineind,order=12) lines(sm,col="red")
Run the code above in your browser using DataLab