data(RCBD)
# \donttest{
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