R/print.mso.R

`print.mso` <-
    function(x,  digits = max(3, getOption("digits") - 3), ...)
{
    NextMethod("print", x, digits = digits, ...)
    cat("mso variogram:\n\n")
    print(x$vario, digits = digits, ...)
    if(!is.null(attr(x$vario, "control")))
        cat("\n", howHead(attr(x$vario, "control")), "\n", sep="")
    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.