alex/Enyo
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Intial commit, finding employment to size

Browse Source
This commit is contained in:
Alex Gebben Work 2026-02-26 17:14:02 -07:00
commit 11afec9e1c
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Scale.r Normal file
View File

@ -0,0 +1,29 @@
library(tidyverse)
library(fixest)
CAP <- c(308.7*2+360,
453*2+400,
612,
454.8+323,
323,
638.4*2,
477+341.7,
4678,
819.4)
NAMES <- c("Trumbull Energy Center","Orange County Advanced Power Station","Shady Hills Combined Cycle Facility","Cumberland (TN)","Kingston","Lincoln Land Energy Center","Delta Blues Advanced Power Station","Homer","Vicksburg")
EMP <- c(25,27,12.5,30,NA,34,21,250,21)
PEAK_CONST <- c(920,NA,600,NA,300,500,300,2500,560)
DATE <- c(2017,2018,2018,2022,2015,2020,2024,2025,NA)
DATA <- cbind(CAP,EMP,PEAK_CONST,DATE) %>% as.matrix %>% as_tibble
DATA$NAMES <- NAMES
colnames(DATA ) <- c("Capacity","Emp","Peak_Const","Report_Year","Plant")
DATA
feols(log(Emp)~log(Capacity),DATA %>% filter(Plant!='Homer'))
feols(log(Emp)~log(Capacity),DATA)
feols(log(Peak_Const)~log(Capacity)+Report_Year,DATA)
plot(CAP,PEAK_CONST)