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