R/plot.radfit.R

`plot.radfit` <-
    function (x, BIC = FALSE, legend = TRUE, ...)
{
    if (length(x$y) == 0)
        stop("no species, nothing to plot")
    ## if 'type = "n"', do not add legend (other types are not
    ## supported)
    type <- match.call(expand.dots = FALSE)$...$type
    if (is.null(type))
        type <- ""
    out <- plot(x$y, ...)
    if (length(x$y) == 1)
        return(invisible(out))
    fv <- fitted(x)
    if (BIC)
        k = log(length(x$y))
    else k = 2
    emph <- which.min(sapply(x$models, AIC, k = k))
    lwd <- rep(1, ncol(fv))
    lwd[emph] <- 3
    matlines(fv, lty = 1, lwd = lwd, ...)
    if (legend && type != "n") {
        nm <- names(x$models)
        legend("topright", legend = nm, lty = 1, lwd = lwd, col = 1:6)
    }
    invisible(out)
}

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.