printTable2: Add and Print Marginals for 2-way Contingency Tables

Description

printTable2() prints a 2-way contingency table “with all bells and whistles” (currently using German labeling).

margin2table() computes marginals, adds them to the table and returns a margin2table object the print method for which adds text decorations (using "-" and "|").

Usage

printTable2(table2, digits = 3)
margin2table(x, totName = "sum", name.if.empty=FALSE)
# S3 method for margin2table
print(x, digits = 3, quote = FALSE, right = TRUE, ...)

Value

margin2table returns a matrix with added marginals, i.e., an extra row and column, and is of class "margin2table"

(and "table" still) which has a nice print method.

printTable2 is just producing output.

Arguments

table2: a matrix with non-negative integer entries, i.e. the contingency table.

x: a matrix; for print(), the result of margin2table.
digits: Anzahl Dezimalstellen, auf die die Häufigkeiten gerundet werden sollen.
quote, right: logicals passed to print.default(), but with different default values.
totName: string to use as row- and column- name if x has corresponding dimnames.
name.if.empty: logical indicating if the margin “totals” should be named in any case.
...: further potential arguments, unused currently.

Author

Martin Maechler, Feb.1993; then Dec 2003

Examples

Run this code

margin2table(diag(4),,TRUE)
m <- diag(3); colnames(m) <- letters[1:3]
margin2table(m)
margin2table(m / sum(m))

data(HairEyeColor)
margin2table(HairEyeColor[,, "Male"])
printTable2(HairEyeColor[,, "Male"])
printTable2(HairEyeColor[,, "Female"])