# Simulate trial data
trial_data <- sim_pw_surv()
# Create a cutting function that applies the following 2 conditions:
# - At least 45 months have passed since the start of the study
# - At least 300 events have occurred
cutting <- create_cut(
planned_calendar_time = 45,
target_event_overall = 350
)
# Cut the trial data
cutting(trial_data)
Run the code above in your browser using DataLab