data_sim <- create_data_simulation(
create_baseline_object(10, 10, 10),
event_dist = create_event_dist(dist = "exponential", lambdas = 1 / 36)
)
set_dropout(
data_sim,
internal_treated = create_event_dist(dist = "exponential", lambdas = 1 / 55),
internal_control = create_event_dist(dist = "exponential", lambdas = 1 / 50),
external_control = create_event_dist(dist = "exponential", lambdas = 1 / 40)
)
Run the code above in your browser using DataLab