adding in a global variable for age cutoff to Rfunctions file