y = rbeta(n=1000, exp(0.5), exp(1)) # Standard beta distribution
fit = vglm(y ~ 1, lino, trace=TRUE)
coef(fit, mat=TRUE)
Coef(fit)
fitted(fit)[1:4]
summary(fit)
# Nonstandard beta distribution
y = rlino(n=1000, shape1=2, shape2=3, lambda=exp(1))
fit = vglm(y ~ 1, lino(lshape1=identity, lshape2=identity, ilambda=10))
coef(fit, mat=TRUE)
Run the code above in your browser using DataLab