Use difftime to stabilize units
This commit is contained in:
parent
b2c8ac222b
commit
be8f6d000d
1 changed files with 1 additions and 1 deletions
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue