# NOT RUN {
# Print the matrix of comparisons:
data(leaflife)
sm1 <- sma(lma ~ longev + site, data=leaflife, multcomp=TRUE)
multcompmatrix(sm1)
# Write the matrix to a file like this:
# }
# NOT RUN {
capture.output(multcompmatrix(sm1), file="sm1matrix.txt")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab