scenarios_list <- simulateScenarios(
n_subjects_list = list(c(10, 20, 30)),
response_rates_list = list(rep(0.9, 3)),
n_trials = 10)
save_info <- saveScenarios(scenarios_list)
scenarios_list <- loadScenarios(scenario_numbers = save_info$scenario_numbers,
load_path = save_info$path)
Run the code above in your browser using DataLab