Create Agecount.R