Learn R Programming

sfsmisc (version 1.1-19)

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

See Also

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

Run the code above in your browser using DataLab