Understanding How to Fix a Custom R Function for Handling Age Calculation from ID Strings