y0 = 1
bdata = data.frame(y = rbenini(n = 3000, y0 = y0, shape = exp(2)))
fit = vglm(y ~ 1, benini(y0 = y0), bdata, trace = TRUE, crit = "coef")
coef(fit, matrix = TRUE)
Coef(fit)
fit@extra$y0
head(fitted(fit), 1) # Apparent discrepancy:
with(bdata, mean(y))
Run the code above in your browser using DataLab