# NOT RUN {
data(RCBD)
# }
# NOT RUN {
if(require(xtable)){
lm1 <- with(RCBD,
lm(y ~ blk + tra,
data=dfm))
tk1 <- TukeyC(lm1,
which='tra')
tb <- xtable(tk1)
print(tb)
}
# }
Run the code above in your browser using DataLab