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

Description Usage Arguments Value Examples

Given a reference model and the fitted model and the degrees of freedom compute the deviance and the p-value. Then print them.

1	deviance_pvalue(reference_model, fitted_model, df, lower.tail = FALSE)

`reference_model`	The model to act as the reference
`fitted_model`	The model that you want to compare to the reference model
`df`	degrees of freedom
`lower.tail`	Compute the p-value using the lower tail. Default = FALSE (optional)

Nothing

{
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_pvalue(intercept.only.model, fitted.model, df = 3)
}