sdata = data.frame(y = rsinmad(n = 3000, 3, 5, 2))
fit = vglm(y ~ 1, sinmad, sdata, trace = TRUE)
fit = vglm(y ~ 1, sinmad, sdata, trace = TRUE, crit = "coef")
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab