# \donttest{
# Using data from Dec. 59 to estimate a model
ap.short <- window(AirPassengers, end = c(1959, 12))
m <- seas(ap.short)
predict(m)
final(m) # equivalent
# Use Dec. 59 model specification to estimate data up to Dec. 60
predict(m, AirPassengers)
# }
Run the code above in your browser using DataLab