How To Calculate Posterior Probability In R