attenuate.r function

Attenuate a Pearson's r estimate for unreliability in the measurements