# easy to use
sarima(rec,2,0,0) # data, p, d, and q
sarima(rec, 2,0,0, details=FALSE)$ttable # print t-table only
(dog <- sarima(log(AirPassengers), 0,1,1, 0,1,1,12))
str(dog$fit, vec.len=1) # fit has all the returned arima values
tsplot(resid(dog$fit)) # plot the innovations (residuals)
# fixed parameters
x = sarima.sim( ar=c(0,-.9), n=200 ) + 50
sarima(x, 2,0,0, fixed=c(0,NA,NA)) # phi1 fixed, phi2 and mean free
# fun with diagnostics
sarima(log(AirPassengers), 0,1,1, 0,1,1,12, gg=TRUE, col=4)
Run the code above in your browser using DataLab