Bayesian Analysis Example In R