correct_r_split function

Correct correlations for uneven/unrepresentative splits