R/print.ctab.R

In tdisplay: Tool Box for Data Importation and Display

print.ctab <-
function(x, ...){

    CALL <- x$CALL
    tab <- x$tab
    tab.counts <- x$tab.counts
    tab.p <- x$tab.p
    digits <- x$digits
    
    #cat("\n")
    #print(CALL)
    #cat("\n")
    #cat("\n------------------------------------ Table description \n\n")
    
    cat("\n")
    if(length(attr(terms(x$f), "term.labels")) > 0)
        z <- paste ("Contingency table ", paste(dim(tab), collapse = "-by-", sep = ""), sep = "")
    else
        z <- paste ("Contingency table 1-by-", dim(tab), sep = "")
    cat(z, "\n\n")

    cat("$ Counts: \n\n")
    print(tab.counts)
    cat("\n\n$ Row percentages: \n\n")
    print(tab.p)
    cat("\n")
    
    }