setting correct out list

This commit is contained in:
Louis 2025-12-22 15:31:32 +01:00
parent 76e60b3202
commit cc277dab37

View file

@ -88,6 +88,7 @@ lbm_res <- future_lapply(seq_along(lbm_matrices), function(mat_idx) {
start_time <- Sys.time() start_time <- Sys.time()
fit <- estimateBipartiteSBM(netMat = lbm_matrices[[mat_idx]], estimOptions = list(plot = 0)) fit <- estimateBipartiteSBM(netMat = lbm_matrices[[mat_idx]], estimOptions = list(plot = 0))
stop_time <- Sys.time() stop_time <- Sys.time()
out_list <- list(fit = fit, time = time)
return(out_list) return(out_list)
}, future.seed = TRUE) }, future.seed = TRUE)