R/print.mc.r

"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]])
}

Try the pgirmess package in your browser

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

pgirmess documentation built on May 29, 2024, 4:26 a.m.