From 60b66b9ccf402de1537fe73156955aed35e0fd44 Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Tue, 30 Sep 2025 17:14:37 -0600 Subject: [PATCH] Added a note --- ARMA_Pop.r | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ARMA_Pop.r b/ARMA_Pop.r index b60a2c6..163d1ce 100644 --- a/ARMA_Pop.r +++ b/ARMA_Pop.r @@ -8,7 +8,7 @@ DF <- FRED_GET('WYLINC3POP','LN_POP') %>% select(-YEAR) TS <- 1000*ts(DF,start=c(1970),end=c(2024),frequency=1) BC <- BoxCox.lambda(TS) MODEL <- auto.arima(TS, lambda = BC) - +forecast(MODEL,h=20) plot(forecast(MODEL,h=35),main="Lincoln County Population Forecast") #####Plan and ideas @@ -20,3 +20,5 @@ plot(forecast(MODEL,h=35),main="Lincoln County Population Forecast") #6) Compare to the ARMA percentile #7) Adjust the ARMA up assuming some of these outputs are known. ####Other ideas, develop larger plan? Maybe look at decline in other industries as a proportion of employment + +###Seperate out Kemmer and Diamondville? http://eadiv.state.wy.us/pop/wyc&sc40.htm