From a5b30bfde461bd8a140a9f21399f2c38116d8432 Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Mon, 15 Dec 2025 12:27:39 -0700 Subject: [PATCH] Updated key year from 2029 to 2027 --- 2C_Upper_Bound_Result_Analysis.r | 2 +- 2D_Lower_Bound_Result_Analysis.r | 2 +- Check_Simulation_Counts.r | 10 ++++++---- 3 files changed, 8 insertions(+), 6 deletions(-) diff --git a/2C_Upper_Bound_Result_Analysis.r b/2C_Upper_Bound_Result_Analysis.r index 4e0e1fb..214085d 100644 --- a/2C_Upper_Bound_Result_Analysis.r +++ b/2C_Upper_Bound_Result_Analysis.r @@ -20,7 +20,7 @@ png(paste0(SAVE_RES_LOC,"Population_Fan_Chart_Upper_Bound.png"), width = 12, hei POP_PLOT dev.off() #Population Summary table for the key years -KEY_YEARS <- c(2029,2030,2035,2045,2055,2065) +KEY_YEARS <- c(2027,2030,2035,2045,2055,2065) KEY_YEAR_SUMMARY <- POP_DATA %>% filter(Year %in% KEY_YEARS,Group==5) %>% select(-Group) %>% rename(CI_95_Lower=MIN,CI_95_Upper=MAX) %>% left_join(POP_DATA %>% filter(Year %in% KEY_YEARS,Group==0) %>% select(-Group) %>% select(Year,Median=MIN)) %>% select(Year,CI_95_Lower,Median,CI_95_Upper) KEY_YEAR_SUMMARY <- round(KEY_YEAR_SUMMARY ) KEY_YEAR_SUMMARY <- t(KEY_YEAR_SUMMARY ) diff --git a/2D_Lower_Bound_Result_Analysis.r b/2D_Lower_Bound_Result_Analysis.r index a74a739..204a1ca 100644 --- a/2D_Lower_Bound_Result_Analysis.r +++ b/2D_Lower_Bound_Result_Analysis.r @@ -21,7 +21,7 @@ POP_PLOT dev.off() #Population Summary table for the key years -KEY_YEARS <- c(2029,2030,2035,2045,2055,2065) +KEY_YEARS <- c(2027,2030,2035,2045,2055,2065) KEY_YEAR_SUMMARY <- POP_DATA %>% filter(Year %in% KEY_YEARS,Group==5) %>% select(-Group) %>% rename(CI_95_Lower=MIN,CI_95_Upper=MAX) %>% left_join(POP_DATA %>% filter(Year %in% KEY_YEARS,Group==0) %>% select(-Group) %>% select(Year,Median=MIN)) %>% select(Year,CI_95_Lower,Median,CI_95_Upper) KEY_YEAR_SUMMARY <- round(KEY_YEAR_SUMMARY ) KEY_YEAR_SUMMARY <- t(KEY_YEAR_SUMMARY ) diff --git a/Check_Simulation_Counts.r b/Check_Simulation_Counts.r index a08e2d6..7ab1f80 100644 --- a/Check_Simulation_Counts.r +++ b/Check_Simulation_Counts.r @@ -1,5 +1,7 @@ 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 +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 +