Use difftime to stabilize units

This commit is contained in:
Louis 2025-12-23 13:15:46 +01:00
parent b2c8ac222b
commit be8f6d000d

View file

@ -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)