R/print.mc.r

In pgirmess: Spatial Analysis and Data Mining for Field Ecologists

"print.mc"<-function (x, ...) {
    if (!inherits(x, "mc")) stop("Object must be of class 'mc'")
    cat(x[[1]],"\nalpha:",x[[2]],"\n")
    cat("Comparisons\n")
    print(x[[3]])
}