Create agecount.r