diff --git a/code/applications/dore/01_dore_clusterize.R b/code/applications/dore/01_dore_clusterize.R
index 2fcd5f7..2dc63e0 100644
--- a/code/applications/dore/01_dore_clusterize.R
+++ b/code/applications/dore/01_dore_clusterize.R
@@ -2,7 +2,10 @@ library(colSBM)
 library(dplyr)
 library(tidyr)
 library(here)
+library(future)
+library(future.apply)
 
+plan(multicore)
 # Arguments
 arg <- commandArgs(trailingOnly = TRUE)
 
@@ -98,10 +101,11 @@ list_collection <- clusterize_bipartite_networks(
     nb_run = 3L,
     global_opts = list(
         nb_cores = parallelly::availableCores(omit = 1L),
-        verbosity = 2L,
+        verbosity = 3L,
         plot_details = 0L,
-        backend = "parallel"
-    )
+        backend = "future"
+    ),
+    fit_opts = list(max_vem_steps = 200L)
 )
 
 save_file <- file.path(
@@ -112,5 +116,5 @@ save_file <- file.path(
     )
 )
 
-message("Clustering saved.")
+message("Clustering saved. Model", model)
 saveRDS(list_collection, file = save_file)