R/print.vectorfit.R

`print.vectorfit` <-
    function (x, ...) 
{
    out <- cbind(x$arrows, r2 = x$r, "Pr(>r)" = x$pvals)
    printCoefmat(out, na.print = "",
                 zap.ind = seq_len(ncol(out)-2), ...)
    if (x$permutations) {
        cat(howHead(x$control))
    }
    invisible(x)
}

Try the vegan package in your browser

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

vegan documentation built on Sept. 11, 2024, 7:57 p.m.