expo <- expose_py(census_dat, "2019-12-31") |>
mutate(surrender = status == "Surrender")
mod <- glm(surrender ~ inc_guar + pol_yr, expo, family = 'binomial')
add_predictions(expo, mod, type = 'response')
Run the code above in your browser using DataLab