Update bayesiana_1.R