final agecount.r