diff --git a/REMI_Inputs.r b/REMI_Inputs.r index d4e663e..f489a06 100644 --- a/REMI_Inputs.r +++ b/REMI_Inputs.r @@ -156,7 +156,8 @@ DATA_CENTER_EMP <- round(OPERATIONAL_EMP_COEF* c(0,cumsum(SCHEDULE ))) ##MW of a DOLLAR_VALUES*0.8603 #Deflate dollar values to 2022 for fixed local inputs in REMI which only offers 2017 or 2022 ALL_VALUES$DATA_CENTER_EMP <- DATA_CENTER_EMP -ALL_VALUES +TAX_EXEMPTIONS <- -1*rowSums(ALL_VALUES[,c(3,4)]*0.04/2) +TAX_EXEMPTIONS ALL_VALUES %>% select(POWER_OPERATORS,TURBINE_CONST_WORKERS,DATA_CENTER_EMP) ALL_VALUES %>% select(-BUILDING,-COMPUTERS,-BESS,-DATA_CENTER_EMP,-POWER_OPERATORS,-TURBINE_CONST_WORKERS,-OTHER)