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")