# NOT RUN {
grp <- c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6,
6, 6, 7, 7, 7, 8, 8, 8, 9, 9, 9, 10,10,10,11,
11,11,12,12,12)
trt <- rep(c(1,0,0), 12)
score <- c(-11.39,-8.45, -19.57,-8.33, 3.06, -19.93,-18.73,-11.99,-7.55,
11.94, 9.4, -25.16,-0.77, -10.46,-7.27, 24.03, -8.23, 2.67,
-4.04, -6.67, -1.12, -14.4, -26.21,5, -1.7, -15.3, -7.73,
-0.87, -19.71,-12.69, -3.36, -11.21,-35.83,5.89, -10.79,2)
mcontrol(score, grp, trt, group.size=3)
# }
Run the code above in your browser using DataLab