data(ogden)
#compare fits of AR(1) and TFD
arima(ogden, order=c(1,0,0))
artfima(ogden) #this model has one more parameter
#Find AIC/BIC 3 best models. Takes about 10 sec
## Not run:
# system.time(ans <- bestModels(ogden, nbest=3))
# summary(ans) #summary provides plausibility as well as scores
# ## End(Not run)
Run the code above in your browser using DataLab