Learn R Programming

sfsmisc (version 1.0-15)

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

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.

encoding

latin1

See Also

table, ftable.

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