data_sim <- create_data_simulation(
create_baseline_object(10, 10, 10),
event_dist = create_event_dist(dist = "exponential", lambdas = 1 / 36)
)
set_enrollment(
data_sim,
internal = enrollment_constant(rate = c(10, 5), for_time = c(6, 6)),
external = enrollment_constant(rate = c(5), for_time = c(20))
)
Run the code above in your browser using DataLab