data : dore, increasing max_vem_steps

code/applications/dore/01_dore_clusterize.R

@@ -9,6 +9,8 @@ plan(multicore)
 # Arguments
 arg <- commandArgs(trailingOnly = TRUE)
 
+supinfo <- "_maxvemsteps_10000"
+
 model <- "iid"
 seed <- 1234L
 
@@ -105,14 +107,14 @@ list_collection <- clusterize_bipartite_networks(
         plot_details = 0L,
         backend = "future"
     ),
-    fit_opts = list(max_vem_steps = 200L)
+    fit_opts = list(max_vem_steps = 10000L)
 )
 
 save_file <- file.path(
     save_folder, paste0(
         "dore_collection_",
         model, "_seed_", seed,
-        "_", start_time, ".Rds"
+        "_", start_time, supinfo, ".Rds"
     )
 )