R/orddist.R

In labdsv: Ordination and Multivariate Analysis for Ecology

orddist <- function (x, dim)
{
    z <- x$points

    if (missing(dim)) dim <- ncol(z)
    if (dim != ncol(z))
        cat(paste("Only comparing first",dim,"dimensions\n"))
    if (dim > ncol(z)) {
        dim <- ncol(z)
        cat(paste("The ordination is only",dim,"dimensionsal."))
    }

    tmp <- dist(z[, 1:dim])
    tmp
}