#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) )
}