diff --git a/Popultaion.R b/Popultaion.R
index e230f1e..94d07e7 100644
--- a/Popultaion.R
+++ b/Popultaion.R
@@ -78,6 +78,7 @@ DF <- LINC_POP %>% left_join(WY_POP) %>% left_join(LINC_PRIV_IND) %>% left_join(
 DF %>% select(LINC_POP,WY_POP)
 DF <- DF %>% mutate(WY_POP=WY_POP-LINC_POP)
 #Check a VAR it looks like lags on changes to Private industry could affect other variables
+		#Idea check a SVAR placing limits on which shocks are first
 feols((LINC_POP)~(WY_POP)+log(LINC_PRIV_IND)+Year,data=DF)
 feols(log(1000*LINC_POP)~log(LINC_GDP)+log(LINC_PRIV_IND)+log(LINC_LABOR_FORCE)+log(LINC_PRIV_IND)+Year,DF)
 DF