diff --git a/increasing_size_test.R b/increasing_size_test.R index 41061af..b6f7146 100644 --- a/increasing_size_test.R +++ b/increasing_size_test.R @@ -92,7 +92,7 @@ lbm_res <- future_lapply(seq_along(lbm_matrices), function(mat_idx) { start_time <- Sys.time() fit <- estimateBipartiteSBM(netMat = lbm_matrices[[mat_idx]], estimOptions = list(plot = 0)) stop_time <- Sys.time() - out_list <- list(fit = fit, time = stop_time - start_time) + out_list <- list(fit = fit, time = difftime(stop_time, start_time, units = "secs")) return(out_list) }, future.seed = TRUE)