n_subjects <- c(10, 20, 30)
rr_negative <- rep(0.1, 3)
rr_nugget <- c(0.9, 0.1, 0.1)
rr_positive <- rep(0.9, 3)
scenarios_list <- simulateScenarios(
n_subjects_list = list(n_subjects,
n_subjects,
n_subjects),
response_rates_list = list(rr_negative,
rr_nugget,
rr_positive))
Run the code above in your browser using DataLab