6 lines
707 B
R
6 lines
707 B
R
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
|