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  )
CONSTRUCTION_CAPEX_PER 
1.6/4.8
32.22461+14.48984+0.41316

EMPLOY_COMP_PER_100 <- (22119136.41597/230)*100 #Total payroll from Peabody divided by number of employees
88*EMPLOY_COMP_PER_100/100 

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.60 #69% local spending 
OP_UNITS <-  c(0,0,0,0,2,2,4,4,6)
PER_OP <-  OP_UNITS/max(OP_UNITS) 
PLANT_WORKERS <- (230-17)*PER_OP +(OP_UNITS>0)*17 # This is an equation of number of power plant operators based on the start date of each generation united provided by Peabody.Regression using Wyomign Impact Statement data shows addtions to existing plants have 17 less workers per MW, implying a minmum of 17 needed. The model was made to assume a start of 17 works with a linear fit thereafter. Peabody provided the 230 final operating worker number.
#Note average $96,170.16 total payrole (includes benefits) per worker. used in IMPLAN

cbind(YEAR,cbind(cbind(POWER_GEN_EQUIP,GENERAL_BUILDINGS,PLANT_EQUIP)/10^6,PLANT_WORKERS))
#0.228+0.233+0.467+0.472+0.473+0.382+0.248+0.1
#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

#Data Center Inputs
PREDEV_2026 <- 1595000+2392500
PREDEV_2027 <- 2*2392500+797500
PREDEV_2026/10^6 
PREDEV_2027/10^6 

UTILITY_2026 <- 10^6
UTILITY_2027 <- 21428571+2*32142857
UTILITY_2028 <- 2*32142857
round(c(UTILITY_2026,UTILITY_2027 ,UTILITY_2028 ) /10^6 ,2)
CONS_2026 <- 150000+450000
CONS_2027 <- 450000+7950000+450000+4287501
CONS_2028 <- 186328937+216309410+468145389+791934505
CONS_2028/10^6 
CONS_2029 <- 468145389+247398869

CONS_TOTAL <- c(CONS_2026,CONS_2027,CONS_2028,CONS_2029)/10^6
#Split based on research
BUILDING <- 0.196
COMPUTERS <- 0.682
OTHER <- 0.061
TOTAL_PER <- BUILDING+COMPUTERS+OTHER
BUILDING <- BUILDING/TOTAL_PER
COMPUTERS <- COMPUTERS/TOTAL_PER
OTHER <- OTHER/TOTAL_PER
BUILDING+COMPUTERS+OTHER
##Million Dollar inputs
CONS_TOTAL*BUILDING
CONS_TOTAL*COMPUTERS
CONS_TOTAL*OTHER

#Building tax base
sum(CONS_TOTAL*BUILDING)

EMP_2027 <-13.1
EMP_2028 <- 39.4
EMP_2029_FORWARD <- 52.5