m <- seas(AirPassengers)
# exit from the viewer with [q]
out(m)
out(m, search = "regARIMA model residuals")
slidingspans(m)
revisions(m)
# plot method for slingspans and revisions (see ?plot.seas)
plot(slidingspans(m))
plot(revisions(m))
Run the code above in your browser using DataLab