if (FALSE) { # rlang::is_installed("survHEhmc")
library(survHE)
## trial data
data("TA174_FCR", package = "blendR")
## externally estimated data
data_sim <- ext_surv_sim(t_info = 144,
S_info = 0.05,
T_max = 180)
ext_Surv <- fit.models(formula = Surv(time, event) ~ 1,
data = data_sim,
distr = "exponential",
method = "hmc")
S_ext <- make_surv(ext_Surv, t = 1:100, nsim = 100)
}
Run the code above in your browser using DataLab