## Not run:
# #takes about 4 minutes. Checking result for bestmodels()
# z<-tseg(1000, "BJARMA11")
# ansARIMA <- best_glp_models(z, glp = "ARIMA", p=2, q=2)
# ansARFIMA <- best_glp_models(z, glp = "ARFIMA", p=2, q=2)
# ansARTFIMA <- best_glp_models(z, glp = "ARTFIMA", p=2, q=2)
# ansARIMA$bic$bic
# ansARFIMA$bic$bic
# ansARTFIMA$bic$bic
# bestModels(z)
# ## End(Not run)
Run the code above in your browser using DataLab