rSamplePair function

Sample a pair (with replacement)