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

In mmaechler/sfsmisc: Utilities from 'Seminar fuer Statistik' ETH Zurich

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 class 'margin2table'
print(x, digits = 3, quote = FALSE, right = TRUE, ...)

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.

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.

Author(s)

Martin Maechler, Feb.1993; then Dec 2003

See Also

table, ftable.

Examples

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

mmaechler/sfsmisc documentation built on April 29, 2024, 5:20 p.m.