Adding meaningful message

This commit is contained in:
Louis Lacoste 2024-06-12 11:07:43 +02:00
parent 744d404bb4
commit cd186f469b

View file

@ -111,6 +111,8 @@ results <- lapply(seq_len(nrow(conditions)), function(idx) {
eps <- conditions[["epsilons"]][idx]
max_vem_steps <- conditions[["vem_steps"]][idx]
message("Condition ", idx, " on ", nrow(conditions))
collection <- list_collections[[as.character(eps)]]
set.seed(current_seed)
@ -119,7 +121,7 @@ results <- lapply(seq_len(nrow(conditions)), function(idx) {
netlist = collection, net_id = names(collection),
colsbm_model = "iid", fit_opts = list(max_vem_steps = max_vem_steps),
global_opts = list(
verbosity = 1L,
verbosity = 0L,
nb_cores = parallelly::availableCores(omit = 1L)
)
)