Added tax write off

This commit is contained in:
Alex Gebben Work 2026-04-16 16:25:38 -06:00
parent d87fa1ea6a
commit 776c058869

View File

@ -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)