# NOT RUN {
tdata <- data.frame(y = rtopple(1000, shape = logitlink(1, inverse = TRUE)))
tfit <- vglm(y ~ 1, topple, data = tdata, trace = TRUE, crit = "coef")
coef(tfit, matrix = TRUE)
Coef(tfit)
# }
Run the code above in your browser using DataLab