Replace gsub() in CalcAge() to stringr::str_replace()
add test for CalcAge()