Displaying 1 result from an estimated 1 matches for "bdes_trtfirst".
2005 Nov 02
0
Bugs/issues with model.tables() (PR#8275)
...A B C D E F
-0.15 3.90 4.60 2.25 7.00 4.70
> # Crude treatment means
> tapply(bdes$y, bdes$trt, mean)
a b c d
3.200000 1.366667 3.633333 6.666667
> ## aov fits
> bdes.aov <- aov(y~blk+trt, data=bdes) # Blocks first
> bdes_trtFirst.aov <- aov(y~trt+blk, data=bdes) # trt first
> model.tables(bdes.aov, type="means")[["table"]][["blk"]]
blk
A B C D E F
-0.15 3.90 4.60 2.25 7.00 4.70
> # Observe that these agree with the above crude block means
> model.t...