model <- glm(honcomp ~ female + read + science, data = hsb2, family = binomial(link ='logit'))blr_rsq_adj_count(model)
See Also
Other model fit statistics: blr_model_fit_stats(), blr_multi_model_fit_stats(), blr_pairs(), blr_rsq_cox_snell(), blr_rsq_effron(), blr_rsq_mcfadden_adj(), blr_rsq_mckelvey_zavoina(), blr_rsq_nagelkerke(), blr_test_lr()