R: Create percentages in a table

pctab {Epi} | R Documentation

## 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)

[Package Epi version 2.37 Index]