R/summary.dispweight.R

Defines functions `print.summary.dispweight` `summary.dispweight`

### summary methods extracts dispweight attributes, and prints a table
### of dispersion statistics

`summary.dispweight`  <-
    function(object, ...)
{
    x <- attributes(object)
    class(x) <- "summary.dispweight"
    x
}

`print.summary.dispweight` <-
    function(x, ...)
{
    tab <- with(x, cbind(D, weights, df, p))
    colnames(tab) <- c("Dispersion", "Weight", "Df", "Pr(Disp.)")
    printCoefmat(tab, cs.ind = NA, ...)
    if (!is.na(x$nsimul))
        cat(sprintf("Based on %d simulations on '%s' nullmodel\n",
                     x$nsimul, x$nullmodel))
    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 Oct. 11, 2022, 5:06 p.m.