data(dune, dune.env)
d <- vegdist(dune)
m <- metaMDS(d)
cl <- hclust(d, "aver")
orditree3d(m, cl, pch=16, col=cutree(cl, 3))
## ordirgltree makes ordinary rgl graphics. It accepts
## material3d() settings, and you can add elements to the
## open graph (for instance, bbox3d()).
if (interactive() && require(rgl, quietly = TRUE)) {
with(dune.env, ordirgltree(m, cl, col = as.numeric(Management), size = 6,
lwd = 2, alpha = 0.6))
}
Run the code above in your browser using DataLab