# NOT RUN {
#-------------------------------------------------------------------
# Gamma-ARMA(1,1) model with no regressors
#-------------------------------------------------------------------
simu = ptsr.sim(n = 3000, burn = 50,
varphi = 20, alpha = 0,
phi = 0.35, theta = 0.2,
seed = 1234, rdist = r.gamma,
link1 = "log", link2 = "log")
fit1 = ptsr.fit(start = c(0,0,0,10), yt = simu$yt,
fit.alpha = TRUE, p = 1, q = 1,
ddist = d.gamma, link1 = "log",
link2 = "log", method = "L-BFGS-B")
summary(fit1)
# removing alpha from the model
fit2 = ptsr.fit(start = c(0,0,10), yt = simu$yt,
fit.alpha = FALSE, p = 1, q = 1,
ddist = d.gamma, link1 = "log",
link2 = "log", method = "L-BFGS-B")
summary(fit2)
# }
Run the code above in your browser using DataLab