alex/Population_Study
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Working on death trend simulations

Browse Source
This commit is contained in:
Alex 2025-10-10 14:59:42 -06:00
parent 5696d3d83b
commit c6478783ce
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Scripts/Data_Load.r
View File

@ -269,5 +269,26 @@ GET_MORTALITY_DATA("Data/Mortality_Rates/Male/I_85+.csv","Male",85,Inf)
)
####NEXT STEP JOIN MORTALITY TO POPULATION!!!!!!!!!!!!!!!
LIN_MORTALITY <- MORTALITY_DATA_ALL %>% filter(County=="Lincoln")
DEM_2020 %>% filter(County=='Lincoln')
LIN_DEM <- DEM_2020 %>% filter(County=='Lincoln')
CURRENT <- LIN_DEM[1,]
VALUES <- LIN_MORTALITY %>% filter(Sex=="Male",Min_Age<=0,Max_Age>=0) %>% select(Death_Rate,Rate_SD,Trend,Trend_SD)
VALUES
VALUES$RATE_SD
TREND_SIM <- function(NUM_YEARS_FORWARD,VALUES){
RES <- c()
C_YEAR_VALUE <- VALUES$Death_Rate
for(i in 1:100){
RES[length(RES)+1] <- C_YEAR_VALUE
C_YEAR_VALUE <- rnorm(1,mean=VALUES$Trend,sd=VALUES$Trend_SD)+C_YEAR_VALUE
}
return(RES)
}
TREND_SIM(100,VALUES)
rnorm(50,mean=VALUES$Death_Rate,sd=VALUES$Rate_SD)
YEARS_AHEAD<-10
for(i in 0:YEARS_AHEAD)
rnorm(50,mean=VALUES$Death_Rate,sd=VALUES$Rate_SD)