res <-evaluate_scenarios_parallel(
score_lists = list(c(MSE(), OverestimationProbability())),
estimator_lists = list(c(SampleMean(), FirstStageSampleMean())),
data_distribution_lists = list(c(Normal(FALSE), Normal(TRUE))),
design_lists = list(c(get_example_design())),
mu_lists = list(c(-1, 0, 1)),
sigma_lists = list(1)
)
Run the code above in your browser using DataLab