14 lines
652 B
R
14 lines
652 B
R
library(tidyverse)
|
|
YEAR <- 2028:2036
|
|
CONSTRUCTION_CAPEX <- c(1860,1860,3720,3720,3720,3720,1860,1860,0)*10^6
|
|
CONSTRUCTION_CAPEX_PER <- CONSTRUCTION_CAPEX/sum(CONSTRUCTION_CAPEX )
|
|
|
|
POWER_GEN_EQUIP <- CONSTRUCTION_CAPEX_PER*3062082645*0.8 #80% local spending
|
|
GENERAL_BUILDINGS <- CONSTRUCTION_CAPEX_PER*1871548496
|
|
PLANT_EQUIP <- CONSTRUCTION_CAPEX_PER*5248715967*0.69 #69% local spending
|
|
|
|
cbind(YEAR,cbind(POWER_GEN_EQUIP,GENERAL_BUILDINGS,PLANT_EQUIP)/10^6)
|
|
#0.228+0.233+0.467+0.472+0.473+0.382+0.248+0.150
|
|
#0.231 +0.237 +0.484 +0.499 +0.515 +0.522 +0.308 +0.300 +0.039 +0.027
|
|
#1-(0.257 +0.264 +0.540 +0.559 +0.578 +0.585 +0.324 +0.313 +0.044)/5.2
|