R/metaMDSredist.R

"metaMDSredist" <-
function(object, ...)
{
    if (!inherits(object, "metaMDS"))
        stop("Needs a metaMDS result object")
    call <- object$call
    call[[1]] <- as.name("metaMDSdist")
    eval(call, parent.frame())
}

Try the vegan package in your browser

Any scripts or data that you put into this service are public.

vegan documentation built on May 2, 2019, 5:51 p.m.