tdata = data.frame(y = rtriangle(n <- 3000, theta = 3/4))
fit = vglm(y ~ 1, triangle(link = "identity"), tdata, trace = TRUE)
coef(fit, matrix = TRUE)
Coef(fit)
head(fit@extra$lower)
head(fitted(fit))
with(tdata, mean(y))
Run the code above in your browser using DataLab