Added tax write off
This commit is contained in:
parent
d87fa1ea6a
commit
776c058869
@ -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
|
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$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(POWER_OPERATORS,TURBINE_CONST_WORKERS,DATA_CENTER_EMP)
|
||||||
ALL_VALUES %>% select(-BUILDING,-COMPUTERS,-BESS,-DATA_CENTER_EMP,-POWER_OPERATORS,-TURBINE_CONST_WORKERS,-OTHER)
|
ALL_VALUES %>% select(-BUILDING,-COMPUTERS,-BESS,-DATA_CENTER_EMP,-POWER_OPERATORS,-TURBINE_CONST_WORKERS,-OTHER)
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user