data_sim <- create_data_simulation(
create_baseline_object(10, 10, 10),
event_dist = create_event_dist(dist = "exponential", lambdas = 1 / 36)
)
set_cut_off(
data_sim,
cut_off_after_events(n = 10),
cut_off_after_first(time = 30)
)
Run the code above in your browser using DataLab