accrual_rate <- data.frame(
end_time = c(12, 13:17, Inf),
piecewise_rate = c(15, 15 + 6 * (1:5), 45)
)
StaggeredRecruiter(30, accrual_rate)
accrual_rate <- data.frame(
end_time = c(3, 4, 5, 8, Inf),
piecewise_rate = c(1, 2, 2, 3, 4)
)
StaggeredRecruiter(30, accrual_rate)
Run the code above in your browser using DataLab