# \donttest{
condition <- merge(
assumptions_delayed_effect(),
design_fixed_followup(),
by=NULL
) |>
tail(4) |>
head(1)
summarise_all <- create_summarise_function(
logrank=summarise_test(alpha=c(0.5, 0.9, 0.95, 0.99))
)
# runs simulations
sim_results <- runSimulation(
design=condition,
replications=100,
generate=generate_delayed_effect,
analyse=list(
logrank=analyse_logrank()
),
summarise = summarise_all
)
sim_results[, grepl("rejection", names(sim_results))]
# }
Run the code above in your browser using DataLab