m <- seas(AirPassengers)
plot(m)
plot(m, outliers = FALSE)
plot(m, trend = TRUE)
residplot(m)
residplot(m, outliers = FALSE)
monthplot(m)
plot(slidingspans(m))
plot(revisions(m))
# use 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