From 8c924532e26b4e2c6ce5477cedda0e807c873494 Mon Sep 17 00:00:00 2001
From: Alex Gebben Work <agebben@uwyo.edu>
Date: Thu, 25 Sep 2025 17:06:01 -0600
Subject: [PATCH] Adding bayes analysis

---
 Popultaion.R | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/Popultaion.R b/Popultaion.R
index f13b0a2..741eebc 100644
--- a/Popultaion.R
+++ b/Popultaion.R
@@ -74,8 +74,6 @@ print(forecast_results)
 plot(forecast_results)
 
 
-?forecast
-?forecast
 install.packages("sparsegl")
 plot(VAR1)
 
@@ -85,10 +83,23 @@ plot(VAR1)
 		#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
-ggplot(data=DF) +geom_point(aes(x=Year,y=WY_POP),color="red")+geom_point(aes(x=Year,y=30*LINC_POP),color="blue")+geom_point(aes(x=Year,y=LINC_GDP/1700),color="black")+geom_point(aes(x=Year,y=LINC_PRIV_IND/1),color="green")+geom_point(aes(x=Year,y=LINC_LABOR_FORCE/20),color="orange")
-
-
+RES
+ggplot(data=RES) +geom_point(aes(x=YEAR,y=WY_POP),color="red")+geom_point(aes(x=YEAR,y=30*LN_POP),color="blue")+geom_point(aes(x=YEAR,y=LN_GDP/1700),color="black")+geom_point(aes(x=YEAR,y=LN_LABOR_FORCE/20),color="orange")
+itial information and data that will be required from Kemmerer-Diamondville Water &
+Wastewater Joint Powers Board includes names of key stakeholders that can be interviewed
+regarding future developments, new businesses, and business closures.
+version
+install.packages("pbkrtest")
+install.packages("bayesPop")
+library("bayesMig")
+help("bayesPop")
+library(bayesMig)
+?mig.predict
+example(mig.predict)
+mig.predict(51)
+library("bayesPop")
+example(bayesMig)
+?bayesMig