simulation : model selection updated

This commit is contained in:
Louis Lacoste 2024-06-25 11:43:59 +02:00
parent 08eed644d8
commit e3c9d48276

View file

@ -5,7 +5,7 @@ suppressPackageStartupMessages(library(future.apply))
handlers(global = TRUE)
plan("multicore", workers = parallelly::availableCores() - 1)
plan("multicore", workers = parallelly::availableCores(omit = 1L))
# Network param
nr <- 90
@ -140,11 +140,11 @@ with_progress({
fitted_bisbmpop_iid <- estimate_colBiSBM(
netlist = netlist,
colsbm_model = "iid",
nb_run = 1,
nb_run = 3L,
global_opts = list(
verbosity = 0,
plot_details = 0,
nb_cores = parallel::detectCores() - 1
nb_cores = parallelly::availableCores(omit = 1L)
)
)
pin("iid computed")
@ -155,11 +155,11 @@ with_progress({
fitted_bisbmpop_pi <- estimate_colBiSBM(
netlist = netlist,
colsbm_model = "pi",
nb_run = 1,
nb_run = 3L,
global_opts = list(
verbosity = 0,
plot_details = 0,
nb_cores = parallel::detectCores() - 1
nb_cores = parallelly::availableCores(omit = 1L)
),
sep_BiSBM = sep_BiSBM
)
@ -168,11 +168,11 @@ with_progress({
fitted_bisbmpop_rho <- estimate_colBiSBM(
netlist = netlist,
colsbm_model = "rho",
nb_run = 1,
nb_run = 3L,
global_opts = list(
verbosity = 0,
plot_details = 0,
nb_cores = parallel::detectCores() - 1
nb_cores = parallelly::availableCores(omit = 1L)
),
sep_BiSBM = sep_BiSBM
)
@ -182,11 +182,11 @@ with_progress({
fitted_bisbmpop_pirho <- estimate_colBiSBM(
netlist = netlist,
colsbm_model = "pirho",
nb_run = 1,
nb_run = 3L,
global_opts = list(
verbosity = 0,
plot_details = 0,
nb_cores = parallel::detectCores() - 1
nb_cores = parallelly::availableCores(omit = 1L)
),
sep_BiSBM = sep_BiSBM
)