gdata <- data.frame(x2 = runif(nn <- 500))
gdata <- transform(gdata, y1 = rgenpois1(nn, mean = exp(2 + x2),
logloglink(-1, inverse = TRUE)))
gfit1 <- vglm(y1 ~ x2, genpoisson1, data = gdata, trace = TRUE)
coef(gfit1, matrix = TRUE)
summary(gfit1)
Run the code above in your browser using DataLab