ci.pbcor(.05, 28.32, 21.48, 3.81, 3.09, 40, 40)
# Should return:
# Estimate SE LL UL
# Weighted: 0.7066 0.04911 0.5879 0.7857
# Unweighted: 0.7021 0.05019 0.5808 0.7829
Run the code above in your browser using DataLab