R/print.uncertainty1.R

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

print.uncertainty1 <-
function(x, ...)
{
    inherits(x, "uncertainty1_opti")
        cls <- "opticut"
    inherits(x, "uncertainty1_multi")
        cls <- "multicut"
    cat("Univariate ", cls, " uncertainty results",
        ", type = ", attr(x, "type"), ", B = ", attr(x, "B"),
        "\n\n", sep="")
    print(summary(x), ...)
    invisible(x)
}