# NOT RUN {
# Decomposition of multiple frequency data
# }
# NOT RUN {
ourModel <- msdecompose(forecast::taylor, lags=c(48,336), type="m")
# }
# NOT RUN {
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