Initial checkin of agecount.R