R/print.lambdamax.diag.R

print.lambdamax.diag <-
function (x, digits = max(3, getOption("digits") - 3), ...)
{
#    npar <- attr(x, "npar")
    y <- x
    attributes(y) <- NULL
#    if (npar > 1) {
#        cat("Largest eigenvalue = ")
#    } else {
#        cat("Standard deviation = ")
#    }
#    cat(round(y, digits = digits), "\n")
    cat("Largest eigenvalue = ", round(y, digits = digits), "\n")
    if (!is.null(nclones(x)))
        cat("Number of clones =", nclones(x), "\n")
    invisible(x)
}

Try the dclone package in your browser

Any scripts or data that you put into this service are public.

dclone documentation built on July 10, 2023, 2:03 a.m.