library(tidyverse)
PRELIM <- read_csv("./Results/Simulations/Kemmerer_2016_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year),is.numeric(Population))  %>% pull(Sim_UUID) %>% unique %>% length()
UPPER <- read_csv("./Results/Simulations/Kemmerer_2024_Upper_Bound_With_Data_Center_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year),!is.na(Year),is.numeric(Population))  %>% pull(Sim_UUID) %>% unique %>% length()
LOWER <-  read_csv("./Results/Simulations/Kemmerer_2024_Lower_Bound_With_Data_Center_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year),is.numeric(Population))  %>% pull(Sim_UUID) %>% unique %>% length()
MAIN <- read_csv("./Results/Simulations/Kemmerer_2024_With_Data_Center_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year),!is.na(Year),is.numeric(Population))  %>% pull(Sim_UUID) %>% unique %>% length()
rbind(PRELIM,UPPER,LOWER,MAIN)/10^5