se <- function(thelist) { sd(thelist) / sqrt(length(thelist)) }

showit <- function(mlist, clist, plist) {
  cat("$", mean(mlist), "\\pm", se(mlist), "$ & $",
    mean(clist), "\\pm", se(clist),
	"$ &\n  $", mean(plist), "\\pm", se(plist), "$ \\cr\n\n")
}

cat("\n")

m2 <- c(0.028917, 0.026354, 0.026387, 0.027642, 0.026575)

c2 <- c(-0.259487, -0.212634, -0.278111, -0.229930, -0.242653)

p2 <- c(68.022047, 61.527513, 60.070678, 70.536194, 61.716064)

showit(m2,c2,p2)

m3 <- c(0.053542, 0.063970, 0.057964, 0.049791, 0.054851, 0.049681,
0.051427, 0.059367, 0.048609)

c3 <- c(0.096337, 0.058619, -0.117535, -0.012728, 0.114087, 0.003121,
-0.035588, -0.001805, 0.055530, -0.059603)

p3 <- c(177.931919, 188.020596, 218.726733, 135.898874, 186.920625,
176.076310, 152.875721, 153.678239, 163.946191, 173.717762)

showit(m3,c3,p3)

m4 <- c(0.138987, 0.102518, 0.116547, 0.134452, 0.099960)

c4 <- c(0.288226, -0.012137, 0.128214, 0.033549, 0.199645)

p4 <- c(257.945561, 272.259257, 245.019870, 274.041046, 260.550081)

showit(m4,c4,p4)

m5 <- c(0.037682, 0.041509, 0.040811, 0.035194, 0.038237)

c5 <- c(-0.092360, -0.032588, -0.099985, -0.159402, -0.137039)

p5 <- c(117.259730, 124.038977, 135.259519, 108.378679, 133.910407)

showit(m5,c5,p5)

m6 <- c(0.029680, 0.031091, 0.030445, 0.031083, 0.034737)

c6 <- c(-0.182494, -0.174538, -0.223991, -0.177259, -0.051577)

p6 <- c(77.595192, 102.882544, 75.335506, 70.791414, 99.470965)

showit(m6,c6,p6)

m7 <- c(0.038793, 0.034383, 0.038796, 0.033488, 0.034616)

c7 <- c(0.022409, -0.110400, 0.014009, -0.099621, -0.120849)

p7 <- c(100.154324, 85.027899, 94.673567, 91.061069, 88.445220)

showit(m7,c7,p7)

m8 <- c(0.030011, 0.029782, 0.029807, 0.029952, 0.029651,
0.030145, 0.029533, 0.029533, 0.030060, 0.030029)

c8 <- c(-0.046449, -0.054261, -0.038451, -0.050155, -0.038367,
-0.044921, -0.036665, -0.045953, -0.041036, -0.041784)

p8 <- c(66.339344, 70.646363, 78.601952, 78.335628, 77.854364,
72.197374, 72.916732, 76.616554, 71.811754, 74.749034)

showit(m8,c8,p8)

m9 <- c(0.027879, 0.028123, 0.028108, 0.027574, 0.027053,
0.027832, 0.027863, 0.027557, 0.028084, 0.027102)

c9 <- c(-0.002278, 0.031358, 0.010861, 0.004427, 0.015719,
0.006428, 0.011956, 0.002365, 0.007709, 0.020259)

p9 <- c(85.044475, 89.110947, 83.346431, 86.062418, 85.899341,
84.669086, 78.781425, 82.133561, 81.675792, 88.291622)

showit(m9,c9,p9)