R/print.oa.R

In DoE.base: Full Factorials, Orthogonal Arrays and Base Utilities for DoE Packages

print.oa <- function (x, ...)
{
    ## should move to DoE.base later on
    xnam <- deparse(substitute(x))
    if (!"oa" %in% class(x))
        stop("this print method is for class oa only")
    attrs <- setdiff(names(attributes(x)), c("origin", "class",
        "dim", "dimnames"))
    info <- attr(x, "MIPinfo")$info
    for (a in attrs) attr(x, a) <- NULL
    print.default(x, ...)
    if (!is.null(info$stati)) {
        cat("optimization results:\\n")
        print(unlist(info$stati))
    }
    if (length(attrs) > 0) {
        cat("\\nfurther attribute(s)", "(accessible with attr(",
            xnam, ", attrname)):", fill = TRUE)
        print(attrs)
    }
}