powered by
envelope.beta(model=fit.model,sim=100,conf=.90, pch="+",font.main=1, cex.main=1.5, type = c("standardized","deviance"))
betareg
summary.betareg
predict.betareg
residuals.betareg
data(pratergrouped) attach(pratergrouped) y <- V11/100 X <- cbind(V1,V2,V3,V4,V5,V6,V7,V8,V9,V10) fit <- betareg(y ~ X) envelope.beta(fit)
Run the code above in your browser using DataLab