# NOT RUN {
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_example <- set_assess_time(data=example_sim,time=10)
# }
Run the code above in your browser using DataLab