working through Kruschke - Doing Bayesian Analysis