From 544c99e8116cea06d47fb33e1d4b45fa73a895d0 Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Thu, 12 Mar 2026 13:37:57 -0600 Subject: [PATCH] Add some missing values. Looks complete now --- REMI_Inputs.r | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/REMI_Inputs.r b/REMI_Inputs.r index 3f99ebe..7c851a8 100644 --- a/REMI_Inputs.r +++ b/REMI_Inputs.r @@ -23,6 +23,7 @@ CAPITAL_SCHEDULE_EST <- c(250,500,250,500,0)/2 + c(0,250,500,250,500)/2 CAPITAL_SCHEDULE_EST<- CAPITAL_SCHEDULE_EST/sum(SCHEDULE) BUILDING <- BUILDING*CAPITAL_SCHEDULE_EST #Output of construction industry COMPUTERS <- COMPUTERS*CAPITAL_SCHEDULE_EST #Purchases of Computers +sum(COMPUTERS ) OTHER <- OTHER*CAPITAL_SCHEDULE_EST #Other purchases DOLLAR_VALUES <- cbind(2029:2033,BUILDING,COMPUTERS,OTHER) %>% as_tibble colnames(DOLLAR_VALUES )[1] <- "Year" @@ -47,6 +48,7 @@ DOLLARS_PER_MW <- DOLLARS_PER_KW*1000 MILL_DOLLARS_PER_MW <- DOLLARS_PER_MW/10^6 CCG_CONSTRUCTION_COSTS <- CCG_SCHEDULE*MILL_DOLLARS_PER_MW +#DOLLAR_VALUES$CCG_COST <- CCG_CONSTRUCTION_COSTS CCG_CAPITAL_COST <- CCG_COST-CCG_CONSTRUCTION_COSTS[5] #Remove the construction cost to estimate final capital costs CCG <- CCG_CAPITAL_COST *(CCG_SCHEDULE/sum(CCG_SCHEDULE)) TURBINE <- CCG +RECIP @@ -123,7 +125,14 @@ CONST_EMPLOYMENT_PRED CONST_EMPLOYMENT_PRED[1] <- CONST_EMPLOYMENT_PRED[1]-EMP_2029 CONST_EMPLOYMENT_PRED <- c(EMP_2029,CONST_EMPLOYMENT_PRED) CONST_EMPLOYMENT_PRED <- CONST_EMPLOYMENT_PRED[c(1:3,5,4)] #Assume the CCG is built mostly in the previous year, but single cycles are same year, based on Enyo data sheet - ALL_VALUES$TURBINE_CONST_WORKERS <- CONST_EMPLOYMENT_PRED -ALL_VALUES +###Data center values +OPERATIONAL_EMP_COEF <- (0.15+0.2)/2 +DATA_CENTER_EMP <- round(OPERATIONAL_EMP_COEF* c(0,cumsum(SCHEDULE ))) ##MW of active data center capacity times emplotyment intesity coefcient + ###see(https://hamminstitute.org/site-files/documents/data_center_workforce.pdf)0/see + + +ALL_VALUES$DATA_CENTER_EMP <- DATA_CENTER_EMP +ALL_VALUES +ALL_VALUES %>% select(-BUILDING,-COMPUTERS,-BESS,-DATA_CENTER_EMP,-POWER_OPERATORS,-TURBINE_CONST_WORKERS,-OTHER)