Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
model <- glm(honcomp ~ female + read + science, data = hsb2,
family = binomial(link = 'logit'))
blr_rsq_nagelkerke(model)
# }
Run the code above in your browser using DataLab