#!/usr/bin/env Rscript

library(tidyverse)
library(dplyr)
library(readr)

join_kurt <- function(model_id) {
  fnorm_csv_fp <- paste0("fnorm-", model_id, ".csv")
  kurt_csv_fp <- paste0("kurtosis-", model_id, ".csv")
  df1 <- read_csv(fnorm_csv_fp)
  df2 <- read_csv(kurt_csv_fp)
  df <- df1 |>
    left_join(df2, by = c("module", "layer"))
  write_csv(df, fnorm_csv_fp)
}

join_kurt("CLIP-ViT-B-32-laion2B-s34B-b79K")
join_kurt("CLIP-ViT-L-14-laion2B-s32B-b82K")
join_kurt("CLIP-ViT-H-14-laion2B-s32B-b79K")