# Decomposition of multiple frequency data
if (FALSE) ourModel <- msdecompose(forecast::taylor, lags=c(48,336), type="m")
ourModel <- msdecompose(AirPassengers, lags=c(12), type="m")
plot(ourModel)
plot(forecast(ourModel, model="AAN", h=12))
Run the code above in your browser using DataLab