set.seed(123)
df <- data.frame(
time = rexp(20, rate = 0.1),
status = rbinom(20, 1, 0.8),
group = rep(c("Control", "Treatment"), each = 10)
)
recruited <- add_recruitment_time(df, rec_method = "power", rec_period = 12, rec_power = 1)
head(recruited)
Run the code above in your browser using DataLab