# NOT RUN {
library("flexsurv")
fit_wei <- flexsurvreg(Surv(futime, fustat) ~ 1, data = ovarian, dist = "weibull")
params_wei <- create_params(fit_wei, n = 2)
fit_exp <- flexsurvreg(Surv(futime, fustat) ~ 1, data = ovarian, dist = "exp")
params_exp <- create_params(fit_exp, n = 2)
params_list <- params_surv_list(wei = params_wei, exp = params_exp)
print(params_list)
# }
Run the code above in your browser using DataLab