diff --git a/increasing_size_analysis.R b/increasing_size_analysis.R
new file mode 100644
index 0000000..eb129e0
--- /dev/null
+++ b/increasing_size_analysis.R
@@ -0,0 +1,13 @@
+library(ggplot2)
+library(here)
+library(tidyverse)
+library(stringr)
+
+flist <- list.files(here("results/increasing_size/"), full.names = TRUE) |> str_sort(numeric = TRUE)
+
+res_df <- do.call("rbind", lapply(flist, readRDS))
+ggplot(res_df, aes(x = n2, y = time)) +
+    geom_point()
+
+ggplot(res_df, aes(x = n2, y = ari_col)) +
+    geom_point()