# \donttest{
m <- seas(AirPassengers)
summary(m)
### user defined stats from the udg function
# (experimental, see ?udg)
# also show some M quality statistics for X11 in summary
options(seas.stats = c("f3.m01", "f3.m02", "f3.m03", "f3.m04"))
summary(seas(AirPassengers, x11 = ""))
# this does not affect the SEATS output
summary(seas(AirPassengers))
# reset to default
options(seas.stats = NULL)
# }
Run the code above in your browser using DataLab