Create Bayesian_logistic_regression.R