10 lines
447 B
R
10 lines
447 B
R
#A function which takes the current demographics of a region, adds births as age zero, and then shifts all ages up one year.
|
|
#Used to account for aging in each round of data
|
|
INCREMENT_AGES <- function(DEMOGRAPHIC_DATA,MALE_AND_FEMALE_BIRTHS){
|
|
DEMOGRAPHIC_DATA[85,] <- colSums(DEMOGRAPHIC_DATA[85:86,] )
|
|
DEMOGRAPHIC_DATA <- DEMOGRAPHIC_DATA[1:85,]
|
|
rownames(DEMOGRAPHIC_DATA ) <- 1:85
|
|
return(rbind(MALE_AND_FEMALE_BIRTHS,DEMOGRAPHIC_DATA) )
|
|
}
|
|
|