diff --git a/Scale.r b/Scale.r
index d8cdd8d..1af8aa5 100644
--- a/Scale.r
+++ b/Scale.r
@@ -18,8 +18,9 @@ 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 %>% filter(Plant!='Homer'))
+
 feols(log(Emp)~log(Capacity),DATA)
 
 feols(log(Peak_Const)~log(Capacity)+Report_Year,DATA)