add naive results

insightsengineering · Apr 8, 2024 · bef19c3 · bef19c3
1 parent 5e006b9
commit bef19c3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/simulations/naive.R b/simulations/naive.R
@@ -24,9 +24,10 @@ naive_file <- "results/naive.rds"
 naive_results <- if (file.exists(naive_file)) {
   readRDS(naive_file)
 } else {
-  res <- lapply(
+  res <- mclapply(
     scenarios,
-    function(x) naive_analysis(x$scenario)
+    FUN = function(x) naive_analysis(x$scenario),
+    mc.cores = availableCores()
   )
   saveRDS(res, file = naive_file)
   res

diff --git a/simulations/results/naive.rds b/simulations/results/naive.rds