# \donttest{
m <- seas(AirPassengers)
plot(m)
plot(m, outliers = FALSE)
plot(m, trend = TRUE)
residplot(m)
residplot(m, outliers = FALSE)
monthplot(m)
# use standard R functions to analyze "seas" models
pacf(resid(m))
spectrum(diff(resid(m)))
plot(density(resid(m)))
qqnorm(resid(m))
# }
Run the code above in your browser using DataLab