idata <- data.frame(y = rinv.paralogistic(n = 3000, exp(1), exp(2)))
fit <- vglm(y ~ 1, inv.paralogistic, data = idata, trace = TRUE)
fit <- vglm(y ~ 1, inv.paralogistic(ishape1.a = 2.7, iscale = 7.3),
data = idata, trace = TRUE, epsilon = 1e-8)
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab