R/plot.varpart234.R

"plot.varpart234" <-
function(x, cutoff = 0, digits = 1,  ...)
{
    vals <- x$indfract[, 3]
    is.na(vals) <- vals < cutoff
    if (cutoff >= 0)
        vals <- round(vals, digits+1)
    labs <-  format(vals, digits=digits, nsmall=digits+1)
    labs <- gsub("NA", "", labs)
    showvarparts(x$nsets, labs, ...)
    if (any(is.na(vals)))
        mtext(paste("Values <", cutoff," not shown", sep=""), 1)
    invisible()
}

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.