lambda <- exp(1); betave <- exp(2)
rdata <- data.frame(y = rexppois(n = 1000, lambda, betave))
library(hypergeo)
fit <- vglm(y ~ 1, exppoisson, rdata, trace = TRUE)
c(with(rdata, mean(y)), head(fitted(fit), 1))
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab