From c6bd2c74a6fc3d809c3f2c38857b0f0b8e402c0c Mon Sep 17 00:00:00 2001 From: Louis Lacoste Date: Wed, 12 Jun 2024 13:52:28 +0200 Subject: [PATCH] =?UTF-8?q?=F0=9F=9A=A4=20Parallelizing?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- code/analysis/investigating/impact_of_vem_max_steps.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/analysis/investigating/impact_of_vem_max_steps.R b/code/analysis/investigating/impact_of_vem_max_steps.R index 19ad40f..97d9fd8 100644 --- a/code/analysis/investigating/impact_of_vem_max_steps.R +++ b/code/analysis/investigating/impact_of_vem_max_steps.R @@ -106,7 +106,7 @@ if (!dir.exists(tmp_folder)) { dir.create(tmp_folder, recursive = TRUE) } -results <- lapply(seq_len(nrow(conditions)), function(idx) { +results <- parallel::mclapply(seq_len(nrow(conditions)), function(idx) { current_seed <- conditions[["seeds"]][idx] eps <- conditions[["epsilons"]][idx] max_vem_steps <- conditions[["vem_steps"]][idx] @@ -168,7 +168,9 @@ results <- lapply(seq_len(nrow(conditions)), function(idx) { ) ) out -}) +}, +mc.cores = parallelly::availableCores(omit = 1L) +) to_save <- do.call(rbind, results) filename_to_save <- paste0("impact_vem_", begin_time, ".Rds")