if (FALSE) {
data(grover.rcb.subsample)
# Fixed-effects ANOVA. Matches Grover page 86.
anova(aov(tiller ~ block + trt + block:trt, data=grover.rcb.subsample))
## Response: tiller
## Df Sum Sq Mean Sq F value Pr(>F)
## block 3 930 310.01 3.6918 0.01415 *
## trt 8 11816 1477.00 17.5891 < 2e-16 ***
## block:trt 24 4721 196.71 2.3425 0.00158 **
## Residuals 108 9069 83.97
}
Run the code above in your browser using DataLab