My version of the sample_wtatage function. Still testing