options(digits = 4)
data("GasolineYield", package = "betareg")
gy2 <- betareg(yield ~ batch + temp | temp, data = GasolineYield)
summary(gy2)
coef(gy2)
vcov(gy2)
logLik(gy2)
AIC(gy2)
coef(gy2, model = "mean")
coef(gy2, model = "precision")
summary(gy2, phi = FALSE)
Run the code above in your browser using DataLab