Update agecount.R