# NOT RUN {
some_list <- as.list(runif(5))
scaleRoundList(some_list, scale_param = 100, round_digits = 2)
scenarios_list <- simulateScenarios(
n_subjects_list = list(c(10, 20, 30)),
response_rates_list = list(c(0.1, 0.2, 0.3)),
n_trials = 10)
analyses_list <- performAnalyses(
scenario_list = scenarios_list,
target_rates = rep(0.5, 3),
n_mcmc_iterations = 100)
scaleRoundList(
list = getEstimates(analyses_list),
scale_param = 100,
round_digits = 2)
# }
Run the code above in your browser using DataLab