advanced-adaptive-trialslisted

# Advanced Adaptive Trial Designs in R ## Overview Advanced adaptive clinical trial designs including platform trials, basket and umbrella trials, response-adaptive randomization, multi-arm multi-stage designs, Bayesian adaptive methods, and sample size re-estimation techniques. ## Platform Trials ### Using adaptr Package ```r library(adaptr) # Define a platform trial with multiple arms setup <- setup_trial( arms = c("Control", "Arm_A", "Arm_B", "Arm_C"), control = "Control", true_ys = c(0.30, 0.35, 0.45, 0.32), # True response rates data_looks = seq(100, 500, by = 100), # Interim analyses randomised_at_looks = NULL, # Equal allocation initially min_n = 25 # Minimum per arm before dropping ) # Specify stopping rules setup <- setup |> setup_trial_binom( highest_is_best = TRUE, soften_power = 0.5 # Softening for allocation ) # Add arm dropping rules setup <- setup_trial_binom( arms = c("Control", "Arm_A", "Arm_B", "Arm_C"), control = "Control", true_ys = c(0.30, 0.35, 0.45, 0.32), data_looks = seq(100, 500, 100), superiority = 0.99, # Probability for superiority inferiority = 0.01, # Probability for futility equivalence_prob = 0.90, equivalence_diff = 0.05 ) # Simulate trial set.seed(123) sims <- run_trials(setup, n_rep = 1000, cores = 4) # Summarize results summary(sims) plot(sims) ``` ### Adding Arms Mid-Trial ```r library(ad