setting correct out list
This commit is contained in:
parent
76e60b3202
commit
cc277dab37
1 changed files with 1 additions and 0 deletions
|
|
@ -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)
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue