# NOT RUN {
rdata <- data.frame(y = rchisq(n = 100, df = 14)) # Not 'proper' data!!
fit <- vglm(y ~ 1, rigff, rdata, trace = TRUE)
fit <- vglm(y ~ 1, rigff, rdata, trace = TRUE, eps = 1e-9, crit = "c")
summary(fit)
# }
Run the code above in your browser using DataLab