# Essentially a 1-parameter gamma
gdata = data.frame(y = rgamma(n <- 100, shape= exp(1)))
fit1 = vglm(y ~ 1, gamma1, gdata, trace=TRUE)
fit2 = vglm(y ~ 1, gamma2.ab, gdata, trace=TRUE, crit="c")
coef(fit2, matrix=TRUE)
Coef(fit2)
# Essentially a 2-parameter gamma
gdata = data.frame(y = rgamma(n=500, rate=exp(1), shape=exp(2)))
fit2 = vglm(y ~ 1, gamma2.ab, gdata, trace=TRUE, crit="c")
coef(fit2, matrix=TRUE)
Coef(fit2)
summary(fit2)
Run the code above in your browser using DataLab