dist_pfs <- define_surv_dist("exp", rate = 1)
dist_os <- define_surv_dist("exp", rate = .5)
define_part_surv(
pfs = dist_pfs,
os = dist_os,
state_names = c(
progression_free = "A",
progression = "B",
terminal = "C",
death = "D"
)
)
# identical to:
define_part_surv(
pfs = dist_pfs,
os = dist_os,
terminal_state = TRUE
)
Run the code above in your browser using DataLab