From 28cd3f7de2ed83658e8d434b7b25109f070b4c43 Mon Sep 17 00:00:00 2001 From: Louis Lacoste Date: Wed, 12 Jun 2024 17:41:09 +0200 Subject: [PATCH] =?UTF-8?q?=F0=9F=9A=A7=20Adding=20more=20verbosity,=20swi?= =?UTF-8?q?tching=20to=20'future'=20backend?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- code/applications/dore/01_dore_clusterize.R | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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)