### How to generate the trees513.RData, needed in ../../tests/HSAURtrees.R:
data("trees513", package = "multcomp")
trees513A <- droplevels(subset(trees513, !species %in%
c("fir", "ash/maple/elm/lime", "softwood (other)")))
levels(trees513A$species)[nlevels(trees513A$species)] <- "hardwood"
trees513B <- droplevels(subset(trees513,
!species %in% c("fir", "softwood (other)")))
save("trees513A", "trees513B", file="trees513.RData")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.