# \donttest{
m <- seas(AirPassengers, x11 = "")
qs(m)
AIC(m)
BIC(m)
nobs(m)
logLik(m)
# a list with all entries from udg
udg(m)
# extracting a few selected stats from udg
udg(m, c("f3.m02", "f3.m05", "qsori")) # returns a list
udg(m, c("f3.m02", "f3.m05")) # returns a vector
# faster than:
udg(m)[c("f3.m01", "f3.m02", "qsori")]
# }
Run the code above in your browser using DataLab