cox1 <- survival::coxph(Surv(AVAL, EVENT) ~ TRT01P, data = codebreak200)
result <- tipping_point_model_based(
dat = codebreak200,
reason = "Early dropout",
impute = "docetaxel",
imputation_model = "weibull",
J = 10,
tipping_range = seq(0.1, 1, by = 0.05),
cox_fit = cox1,
verbose = TRUE,
seed = 12345
)
plot(result, type = "Kaplan-Meier")
plot(result, type = "Tipping Point")
Run the code above in your browser using DataLab