fixed a small bug
added example from bayesm package