Create age_distribution.R