ci.bayes.cor(.05, .1, .536, 0, 50)
# Should return:
# Posterior mean LL UL
# 0.1873765 0.02795441 0.3375031
ci.bayes.cor(.05, .1, .536, 0, 300)
# Should return:
# Posterior mean LL UL
# 0.4195068 0.3352449 0.4971107
Run the code above in your browser using DataLab