pdata = data.frame(y = rparalogistic(n = 3000, 4, 6))
fit = vglm(y ~ 1, paralogistic, pdata, trace = TRUE)
fit = vglm(y ~ 1, paralogistic(ishape1.a = 2.3, iscale = 5),
pdata, trace = TRUE, crit = "coef")
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab