vee <- exp(2); sigma <- exp(1)
rdata <- data.frame(y = rrice(n <- 1000, vee, sigma))
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)
Run the code above in your browser using DataLab