Create agecount.R