library("curesurv")
library("survival")
# overall survival setting
# Mixture cure model with Weibull function for the uncured patients survival:
# no covariate
fit_ml0 <- curesurv(Surv(time_obs, event) ~ 1 | 1,
model = "mixture", dist = "weib",
data = testiscancer,
method_opt = "L-BFGS-B")
print(fit_ml0)
Run the code above in your browser using DataLab