Added example to bayes.cor.test