data(dacca)
plot(dacca)
#MLEs on the natural scale
theta <- dacca.transform(coef(dacca),dir="inverse")
plot(simulate(dacca))
# now change 'eps' and simulate again
theta["eps"] <- 1
plot(simulate(dacca,params=dacca.transform(theta,dir="forward")))
Run the code above in your browser using DataLab