R/print.summary.clamtest.R

Defines functions print.summary.clamtest

print.summary.clamtest <- function(x, digits=max(3, getOption("digits") - 3), ...) {
    cat("Two Groups Species Classification Method (CLAM)\n\n")
    cat("Specialization threshold =", x$specialization)
    cat("\nAlpha level =", x$alpha)
    cat("\n\nEstimated sample coverage:\n")
    print(x$coverage, digits=digits)
    cat("\nMinimum abundance for classification:\n")
    print(structure(c(x$minv[[1]][1,2], x$minv[[2]][1,1]),
        .Names=x$labels))
    cat("\n")
    printCoefmat(x$summary, digits=digits, ...)
}

Try the vegan package in your browser

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

vegan documentation built on Sept. 11, 2024, 7:57 p.m.