alex/Peabody
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated data center employment average

Browse Source
This commit is contained in:
Alex Gebben Work 2026-10-05 08:58:55 -06:00
parent 58c2b5010f
commit 6edbfa0df7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data_Center_Visuals.r
View File

@ -3,6 +3,7 @@ library(scales)
library(janitor) library(janitor)
library(paletteer) library(paletteer)
source("Scripts/Return_Data_Center_Model_Inputs.r") source("Scripts/Return_Data_Center_Model_Inputs.r")
CONST_END_YEAR <- 2029
DATA_CENTER <- DATA_CENTER_INPUTS() DATA_CENTER <- DATA_CENTER_INPUTS()
DATA_CENTER <- rbind(DATA_CENTER,do.call(rbind, lapply(2031:2050,function(x){DATA_CENTER %>% filter(Year==2030) %>% mutate(Year=x)}))) DATA_CENTER <- rbind(DATA_CENTER,do.call(rbind, lapply(2031:2050,function(x){DATA_CENTER %>% filter(Year==2030) %>% mutate(Year=x)})))
GET_DATA_CENTER_RES <- function(DIR,EVENT,REGION='Wyoming'){ GET_DATA_CENTER_RES <- function(DIR,EVENT,REGION='Wyoming'){
@ -247,6 +248,7 @@ OP_EMP_SUMMARY <- EMP_SUMMARY %>% select(Occupation,Period,Wy_Employment,Wy_Peak
############Save results ############Save results
HEADER <- "Data Center_" HEADER <- "Data Center_"
EMP_MAIN_SUMMARY
write.csv(EMP_MAIN_SUMMARY ,paste0("./Results/",HEADER,"Employment_Summary.csv"),row.names=FALSE) write.csv(EMP_MAIN_SUMMARY ,paste0("./Results/",HEADER,"Employment_Summary.csv"),row.names=FALSE)
write.csv(WY_NPV,paste0("./Results/",HEADER,"Wyoming_NPV_Values.csv"),row.names=FALSE) write.csv(WY_NPV,paste0("./Results/",HEADER,"Wyoming_NPV_Values.csv"),row.names=FALSE)
write.csv(US_NPV,paste0("./Results/",HEADER,"US_NPV_Values.csv"),row.names=FALSE) write.csv(US_NPV,paste0("./Results/",HEADER,"US_NPV_Values.csv"),row.names=FALSE)