# create a function to analyse after interim_events and maximum followup time
# given in the condition row of the design data.frame with given
# nominal alpha
analyse_maxcombo_sequential <- analyse_group_sequential(
followup = c(condition$interim_events, condition$followup),
followup_type = c("event", "time"),
alpha = c(0.025, 0.05),
analyse_functions = analyse_maxcombo()
)
Summarise <- create_summarise_function(
maxcombo_seq = summarise_group_sequential(),
logrank_seq = summarise_group_sequential(name="logrank")
)
Run the code above in your browser using DataLab