correct_r function

Correct correlations for range restriction and/or measurement error