# NOT RUN {
scenarios_list <- simulateScenarios(
n_subjects_list = list(c(10, 20)),
response_rates_list = list(rep(0.9, 2)),
n_trials = 10)
analyses_list <- performAnalyses(
scenario_list = scenarios_list,
target_rates = rep(0.5, 2),
n_mcmc_iterations = 100)
go_decisions_list <- getGoDecisions(
analyses_list = analyses_list,
cohort_names = c("p_1", "p_2"),
evidence_levels = c(0.5, 0.8),
boundary_rules = quote(c(x[1] > 0.8, x[2] > 0.6)))
nogo_decisions_list <- getGoDecisions(
analyses_list = analyses_list,
cohort_names = c("p_1", "p_2"),
evidence_levels = c(0.5, 0.8),
boundary_rules = quote(c(x[1] < 0.5, x[2] < 0.3)))
getGoProbabilities(go_decisions_list)
getGoProbabilities(go_decisions_list, nogo_decisions_list)
# }
Run the code above in your browser using DataLab