x <- seas(AirPassengers)
final(x)
original(x)
irregular(x)
trend(x)
spc(x) # X13-ARIMA-SEATS .spc file
mdl(x) # X13-ARIMA-SEATS .mdl file
# out(x) # returns an error
x2 <- seas(AirPassengers, out = TRUE)
out(x2) # this works: X13-ARIMA-SEATS .out file
Run the code above in your browser using DataLab