trial_data <- sim_pw_surv(n = 200)
trial_data_cut <- cut_data_by_event(trial_data, 150)
# create cutting test functions
wlr_partial <- create_test(wlr, weight = fh(rho = 0, gamma = 0))
rmst_partial <- create_test(rmst, tau = 20)
maxcombo_partial <- create_test(maxcombo, rho = c(0, 0), gamma = c(0, 0.5))
multitest(
data = trial_data_cut,
wlr = wlr_partial,
rmst = rmst_partial,
maxcombo = maxcombo_partial
)
Run the code above in your browser using DataLab