`R/attenuate.r.R`

`attenuate.r.Rd`

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

`attenuate.r(r, reliability1, reliability2)`

- r
The (disattenuated) value of Pearson's r

- reliability1, reliability2
The reliabilities of the two variables

The attenuated value of Pearson's r

```
attenuate.r(.5, .8, .9);
#> [1] 0.4242641
```