Create age.R