diff --git a/paper/supplementary/format_tableS1.R b/paper/supplementary/format_tableS1.R
deleted file mode 100644
index 847d8ec..0000000
--- a/paper/supplementary/format_tableS1.R
+++ /dev/null
@@ -1,11 +0,0 @@
-library(tidyverse)
-
-t = readxl::read_xlsx("paper/Table_S1.xlsx")
-
-ft = function(a,b,c) {
-  return(paste0(a,))
-}
-
-t %>%
-  mutate(freq=paste0(`excess_year_Global Serfling`),
-         bay1)