> source("a3script.r")
Effective sample size: 6.504284
[1] 1048.81  180.44 1229.50    0.00    0.00
Effective sample size: 2.785699
[1] 1911.84   10.97 1922.95    0.00    0.00