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