gdata <- data.frame(y = rsinmad(3000, shape1 = exp(2), scale = exp(2),
shape3 = exp(1))) # A special case!
fit <- vglm(y ~ 1, genbetaII(lss = FALSE), data = gdata, trace = TRUE)
fit <- vglm(y ~ 1, data = gdata, trace = TRUE,
genbetaII(lss = FALSE, ishape1.a = 4, ishape2.p = 2.2,
iscale = 7, ishape3.q = 2.3))
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab