R/print.taxondive.R

`print.taxondive` <-
    function (x, ...) 
{
    out <- cbind(x$Species, x$D, x$Dstar, x$Lambda, x$Dplus, x$SDplus)
    out <- rbind(out, Expected = c(NA, x$ED, x$EDstar, NA, x$EDplus, NA))
    colnames(out) <- c("Species", "Delta", "Delta*", "Lambda+", 
                       "Delta+", "S Delta+")
    printCoefmat(out, na.print = "")
    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 May 2, 2019, 5:51 p.m.