Last chance! 50% off unlimited learning
Sale ends in
fit <- Arima(WWWusage,order=c(3,1,0))
plot(forecast(fit,h=20))
air.model <- Arima(window(AirPassengers,end=1956+11/12),order=c(0,1,1),seasonal=list(order=c(0,1,1),period=12))
plot(forecast(air.model,h=48))
lines(AirPassengers)
air.model2 <- Arima(window(AirPassengers,start=1957),model=air.model)
outofsample <- fitted(air.model2)
# in-sample one-step forecasts
accuracy(air.model)
# out-of-sample one-step foercasts
accuracy(air.model2)
# out-of-sample multi-step forecasts
accuracy(forecast(air.model,h=48),outofsample)
Run the code above in your browser using DataLab