# NOT RUN {
## Urine Data
data(urine)
urine.glm <- glm(r ~ gravity + ph + osmo + conduct + urea + calc,
family = binomial, data = urine)
urine.cond <- cond(urine.glm, urea)
print(summary(urine.cond, all = TRUE), digits = 4)
print(summary(urine.cond), Coef = FALSE)
# }
Run the code above in your browser using DataLab