diff --git a/Model_Inputs.r b/Model_Inputs.r index 8e03cde..00f2190 100644 --- a/Model_Inputs.r +++ b/Model_Inputs.r @@ -13,3 +13,45 @@ 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 + +#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 + +EMP_2027 <-13.1 +EMP_2028 <- 39.4 +EMP_2029_FORWARD <- 52.5 + + + + + +