8 lines
962 B
R
8 lines
962 B
R
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
|
|
|