# NOT RUN {
library(ggplot2)
data("datasim")
data = datasim$Sim$Zt
parameters = list(l = 1,orders = list(pj = 1))
initial = mtarinipars(tsregime_obj = tsregime(data),
list_model = list(pars = parameters))
estim1 = mtarns(ini_obj = initial,niter = 500,chain = TRUE)
# }
# NOT RUN {
autoplot.regime_model(estim1,2)
autoplot.regime_model(estim1,3)
# }
# NOT RUN {
autoplot.regime_model(estim1,5)
# }
Run the code above in your browser using DataLab