From 11afec9e1cce923904aa5716ea9037380f30304d Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Thu, 26 Feb 2026 17:14:02 -0700 Subject: [PATCH] Intial commit, finding employment to size --- Scale.r | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 Scale.r diff --git a/Scale.r b/Scale.r new file mode 100644 index 0000000..d8cdd8d --- /dev/null +++ b/Scale.r @@ -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) + + +