R code and Priors .zip