Update demogromatics-functions.R