13 lines
339 B
R
13 lines
339 B
R
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()
|