> source("ex.r") ybar s2i [1,] -0.1 0.9 0.1 0.3 0.28 [2,] -0.3 -0.6 0.6 -0.1 0.39 [3,] 0.9 0.1 -0.1 0.3 0.28 [4,] 0.7 -0.1 0.0 0.2 0.19 [5,] 0.8 0.3 -0.2 0.3 0.25 mu-hat = 0.2 sigma2e_hat = 0.278 sigma2_hat = -0.06266667 One Sample t-test data: ybar t = 2.582, df = 4, p-value = 0.0306 alternative hypothesis: true mean is greater than 0 95 percent confidence interval: 0.03486786 Inf sample estimates: mean of x 0.2 sigma2e_hat/m = 0.09266667 s2 = 0.03 z-test: 0.07090198