ci.cor(.05, .60, 0, 150)
# Should return:
# Estimate SE LL UL
# 0.6 0.05243 0.485 0.6925
ci.cor(.05, .70, 1, 135)
# Should return:
# Estimate SE LL UL
# 0.7 0.04406 0.6002 0.7763
Run the code above in your browser using DataLab