ldata <- data.frame(y = rlomax(n = 1000, exp(1), exp(2)))
fit <- vglm(y ~ 1, lomax, ldata, trace = TRUE)
fit <- vglm(y ~ 1, lomax(iscale = exp(1), ishape3.q = exp(2)), ldata, trace = TRUE)
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab