library("flexsurv")
 fit1 <- flexsurv::flexsurvreg(formula = Surv(futime, fustat) ~ 1, data = ovarian, dist = "weibull")
 fit2 <- flexsurv::flexsurvreg(formula = Surv(futime, fustat) ~ 1, data = ovarian, dist = "exp")
 fsreg_list <- flexsurvreg_list(wei = fit1, exp = fit2)
 class(fsreg_list)
Run the code above in your browser using DataLab