fitter <- stats_glm_logit(tempdir())
data(data_censored)
# Not usually called directly by a user
fitted <- fit_weights_model(
object = fitter,
data = data_censored,
formula = 1 - censored ~ x1 + age_s + treatment,
label = "Example model for censoring"
)
fitted
unlink(fitted@summary$save_path$path)
Run the code above in your browser using DataLab