R Version (Thanks for Dr. George Karabatsos's Help)

R version provides basic MCMC of the posterior mean via Metropolis algorithm. This allows you to recruit arbitrary prior that is symmetric. However this code does not provide a full description of the posterior as that in the WinBUGS version. 

Note: This code uses sub model 5C and referred to Dr.  George Karabatsos code (Karabatsos, 2005).
Quan Tang,
Jan 7, 2012, 3:11 PM