> psychometric::CIr(.3, 200)
[1] 0.17 0.42
> sqrt((1-.3^2)/(200-2))
[1] 0.068
> .3 - 1.96 * 0.068
[1] 0.17
> .3 + 1.96 * 0.068
[1] 0.43

> psychometric::CIr(.9, 20)
[1] 0.76 0.96
> sqrt((1-.9^2)/(20-2))
[1] 0.1
> .9 + 1.96 * 0.1
[1] 1.1
> .9 - 1.96 * 0.1
[1] 0.7