Create bayes_remed.Rnw