R/print.multicut.R

In psolymos/opticut: Likelihood Based Optimal Partitioning and Indicator Species Analysis

print.multicut <- function(x, digits, ...) {
    if (missing(digits))
        digits <- max(3L, getOption("digits") - 3L)
    cat("Multivariate multicut results, dist = ",
        if (is.function(x$dist)) attr(x$dist, "dist") else x$dist,
        "\n", sep="")
    cat("\nCall:\n", paste(deparse(x$call), sep = "\n", collapse = "\n"),
            "\n\n", sep = "")
    cat(length(x$species), "species\n\n")
    invisible(x)
}