ci.bayes.cor(.05, .1, .536, 0, 50)
# Should return:
# Posterior mean LL UL
# 0.1874 0.028 0.3375
ci.bayes.cor(.05, .1, .536, 0, 300)
# Should return:
# Posterior mean LL UL
# 0.4195 0.3352 0.4971
Run the code above in your browser using DataLab