deviance: deviance
In ocrug/AdvancedRegression: Advaced Regression Models With SAS And R

Description Usage Arguments Value Examples

Given two models, compute the deviance between the two

1	deviance(reference_model, fitted_model)

`reference_model`	The model to act as the reference
`fitted_model`	The model that you want to compare to the reference model

The deviance between the two models

{
libraries.data <- AdvancedRegression::libraries

#specifying reference category
location.rel <- relevel(libraries.data$location, ref = "rural")

#fitting beta regression model
fitted.model <- betareg::betareg(propontime ~ nbooks + ncardholders + location.rel,
                                 data = libraries.data, link = "logit")

#checking model fit
intercept.only.model <- betareg::betareg(propontime ~ 1,
                                         data = libraries.data, link = "logit")

deviance(intercept.only.model, fitted.model)
}