diff --git a/increasing_size_test.R b/increasing_size_test.R
index 97a0dd8..25ab903 100644
--- a/increasing_size_test.R
+++ b/increasing_size_test.R
@@ -69,6 +69,10 @@ library(here)
 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)
+}
+
 print(paste0("Final results will be saved to ", save_path))
 
 # (epoch <- as.integer(Sys.time()))