example_sim <- simulate_trials(active_ecurve=Weibull(250,0.8),control_ecurve=Weibull(100,1),
rcurve=LinearR(12,100,100), assess=20,iterations=5,seed=12345,detailed_output=TRUE)
adjusted_examples <- set_event_number(data=example_sim,events=50)
Run the code above in your browser using DataLab