R/lines.spantree.R

In pattakosn/Rworkshop: Community Ecology Package

"lines.spantree" <-
    function (x, ord, display = "sites", ...)
{
    ord <- scores(ord, display = display, ...)
    tree <- x$kid
    ordiArgAbsorber(ord[-1, 1], ord[-1, 2], ord[tree, 1], ord[tree, 2],
                   FUN = segments, ...)
    invisible()
}