# Example from Hosmer et al., 2013
# Applied Logistic Regression (3rd ed.), Chapter 4, Table 4.7
# Define variables to evaluate
unvariables <- c(
'age','weight','height', 'bmi', 'priorfrac', 'premeno', 'momfrac',
'armassist','smoke', 'raterisk')
# Define value ranges used to interpret odds ratios (Optional)
val.pe <- c(5, 5, 10, 5, 1, 1, 1, 1, 1, 1, 1)
# Run univariable conditional logistic regressions
univariable.models(glow500, yval = 'fracture', xval = unvariables, OR = TRUE, inc.or = val.pe)
Run the code above in your browser using DataLab