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()
|
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 = stop_time - start_time)
|
out_list <- list(fit = fit, time = difftime(stop_time, start_time, units = "secs"))
|
||||||
return(out_list)
|
return(out_list)
|
||||||
}, future.seed = TRUE)
|
}, future.seed = TRUE)
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue