Lecture789_code_Bayes.R