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