## Not run: sigma <- exp(1); vee <- exp(2)
# rdata <- data.frame(y = rrice(n <- 1000, sigma, vee = vee))
# fit <- vglm(y ~ 1, riceff, data = rdata, trace = TRUE, crit = "coef")
# c(with(rdata, mean(y)), fitted(fit)[1])
# coef(fit, matrix = TRUE)
# Coef(fit)
# summary(fit)
# ## End(Not run)
Run the code above in your browser using DataLab