diff --git a/increasing_size_test.R b/increasing_size_test.R
index 25ab903..41061af 100644
--- a/increasing_size_test.R
+++ b/increasing_size_test.R
@@ -70,7 +70,7 @@ results_dir <- here("results", "increasing_size")
 save_path <- here(results_dir, paste0("sbm_incr_", model, "_from_", min_nb_col, "_to_", max_nb_col, ".Rds"))
 
 if (!dir.exists(results_dir)) {
-    dir.create(results_dir)
+    dir.create(results_dir, recursive = TRUE)
 }
 
 print(paste0("Final results will be saved to ", save_path))
@@ -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 = time)
+    out_list <- list(fit = fit, time = stop_time - start_time)
     return(out_list)
 }, future.seed = TRUE)