pdata <- data.frame(y = rgamma(10, shape = exp(-1))) # Not proper data!
os <- 2
fit <- vglm(y ~ 1, poissonp(os, 2), pdata, tra = TRUE, crit = "c")
fit <- vglm(y ~ 1, poissonp(os, 3), pdata, tra = TRUE, crit = "c") # Slow convergence?
fit <- vglm(y ~ 1, poissonp(os, 3, idensi = 1), pdata, trace = TRUE, crit = "c")
head(fitted(fit))
with(pdata, mean(y))
coef(fit, matrix = TRUE)
Coef(fit)
Run the code above in your browser using DataLab