R/print.permtstBurSt.R

In BurStMisc: Burns Statistics Miscellaneous

"print.permtstBurSt" <-
function (x, digits = 4, ...) 
{
    cat("Call:\n")
    print(x$call)
    cat("\nOriginal value:", x$original.score, "  Number of observations:", 
        x$stats["nobs"], "\n")
    cat("Number of random permutations:", x$stats["trials"], 
        "  Alternative:", x$alternative, "  p-value:", round(x$stats["extreme"]/x$stats["trials"], 
            digits), "\n")
    invisible(x)
}