> mean(data1)
[1] 6.4
> mean(data2)
[1] 5.875

> posterior.means(data1,data2,10) 
[1] 6.550267 5.787838

> posterior.means(data1,data2,40)
[1] 6.538896 5.736170

> posterior.means(data1,data2,100)
[1] 6.538860 5.736151