# 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:
if (FALSE) {
capture.output(multcompmatrix(sm1), file="sm1matrix.txt")
}
Run the code above in your browser using DataLab