pctab: Create percentages in a table

In Epi: Statistical Analysis in Epidemiology

Create percentages in a table

Description

Computes percentages and a margin of totals along a given margin of a table.

Usage

pctab(TT, margin = length(dim(TT)), dec=1)

Arguments

TT	A table or array object
margin	Which margin should be the the total?
dec	How many decimals should be printed? If 0 or FALSE nothing is printed

Value

A table of percentages, where all dimensions except the one specified margin has two extra levels named "All" (where all entries are 100) and "N". The function prints the table with dec decimals.

Author(s)

Bendix Carstensen, Steno Diabetes Center, http://bendixcarstensen.com.

See Also

addmargins

Examples

Aye <- sample( c("Yes","Si","Oui"), 177, replace=TRUE )
Bee <- sample( c("Hum","Buzz"), 177, replace=TRUE )
Sea <- sample( c("White","Black","Red","Dead"), 177, replace=TRUE )
A <- table( Aye, Bee, Sea )
A
ftable( pctab( A ) )
ftable( pctab( addmargins( A, 1 ), 3 ) )
round( ftable( pctab( addmargins( A, 1 ), 3 ), row.vars=3 ), 1)

Epi documentation built on Oct. 1, 2024, 5:07 p.m.