Calculate Nagelkerke's pseudo-R2.
References
Nagelkerke, N. J. (1991). A note on a general definition of the coefficient of determination. Biometrika, 78(3), 691-692.
Examples
model <- glm(vs ~ wt + mpg, data = mtcars, family = "binomial")
r2_nagelkerke(model)
#> Nagelkerke's R2
#> 0.5899593