library(tidyverse)
read_csv("Kemmerer_2016_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year))  %>% pull(Sim_UUID) %>% unique %>% length()/10^5
read_csv("Kemmerer_2024_Upper_Bound_With_Data_Center_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year))  %>% pull(Sim_UUID) %>% unique %>% length()/10^5
read_csv("Kemmerer_2024_With_Lower_Bound_With_Data_Center_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year))  %>% pull(Sim_UUID) %>% unique %>% length()/10^5
read_csv("Kemmerer_2024_With_Data_Center_Simulation.csv")  %>% filter(!is.na(Population),!is.na(Sim_UUID),!is.na(Year))  %>% pull(Sim_UUID) %>% unique %>% length()/10^5