dat <- data.frame(
V1 = rexp(100, rate = 0.1), # Time-to-event data
V2 = sample(0:1, 100, replace = TRUE),
V3 = sample(0:1, 100, replace = TRUE)# Event indicator (0 = censored, 1 = event)
)
simulated_case <- data_simul_Bootstr(dat = dat, n = 100, type = "case")
simulated_cond <- data_simul_Bootstr(dat = dat, type = "cond")
Run the code above in your browser using DataLab