Add analysis for increasing

This commit is contained in:
Louis 2025-12-23 13:15:35 +01:00
parent b1fef82630
commit b2c8ac222b

View file

@ -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()