# NOT RUN {
trial_data <- createTrial(
n_subjects = c(10, 20, 30),
n_responders = c(1, 2, 3))
analysis_list <- performAnalyses(
scenario_list = trial_data,
target_rates = rep(0.5, 3),
n_mcmc_iterations = 100)
save_info <- saveAnalyses(analysis_list)
analysis_list <- loadAnalyses(scenario_numbers = save_info$scenario_numbers,
analysis_numbers = save_info$analysis_numbers,
load_path = save_info$path)
# }
Run the code above in your browser using DataLab