R/print.mso.R

In pattakosn/Rworkshop: Community Ecology Package

`print.mso` <-
    function(x,  digits = max(3, getOption("digits") - 3), ...)
{
    NextMethod(x, "print", digits = digits, ...)
    cat("mso variogram:\n\n")
    print(x$vario, digits = digits, ...)
    invisible(x)
}