Update bn-demo.R