Create age_function.R