# Example from Hosmer et al., 2013
# Applied Logistic Regression (3rd ed.), Chapter 4
# Variables selected for the full model
preliminar <- c('age', 'height', 'priorfrac', 'momfrac', 'armassist', 'raterisk')
# Variables to test
excluded <- c('weight', 'bmi', 'premeno', 'smoke')
# Assess whether any excluded variables become significant when added to the preliminary model
check_coef_significant(data = glow500, yval = 'fracture', xpre = preliminar, xcheck = excluded)
Run the code above in your browser using DataLab