Compute Conditional Tables

For a contingency table in array form, compute a list of conditional tables given some margins.

co_table(x, margin, collapse = ".")

Arguments

x

a contingency table in array form.

margin

margin index(es) or corresponding name(s) of the conditioning variables.

collapse

character used when collapsing level names (if more than 1 margin is specified).

Details

This is essentially an interface to [ which is more convenient for arrays of arbitrary dimension.

Value

A list of the resulting conditional tables.

Author

Achim Zeileis Achim.Zeileis@R-project.org

Examples

data("HairEyeColor")
co_table(HairEyeColor, 1)
#> $Black
#>        Sex
#> Eye     Male Female
#>   Brown   32     36
#>   Blue    11      9
#>   Hazel   10      5
#>   Green    3      2
#> 
#> $Brown
#>        Sex
#> Eye     Male Female
#>   Brown   53     66
#>   Blue    50     34
#>   Hazel   25     29
#>   Green   15     14
#> 
#> $Red
#>        Sex
#> Eye     Male Female
#>   Brown   10     16
#>   Blue    10      7
#>   Hazel    7      7
#>   Green    7      7
#> 
#> $Blond
#>        Sex
#> Eye     Male Female
#>   Brown    3      4
#>   Blue    30     64
#>   Hazel    5      5
#>   Green    8      8
#> 
co_table(HairEyeColor, c("Hair", "Eye"))
#> $Black.Brown
#> Sex
#>   Male Female 
#>     32     36 
#> 
#> $Brown.Brown
#> Sex
#>   Male Female 
#>     53     66 
#> 
#> $Red.Brown
#> Sex
#>   Male Female 
#>     10     16 
#> 
#> $Blond.Brown
#> Sex
#>   Male Female 
#>      3      4 
#> 
#> $Black.Blue
#> Sex
#>   Male Female 
#>     11      9 
#> 
#> $Brown.Blue
#> Sex
#>   Male Female 
#>     50     34 
#> 
#> $Red.Blue
#> Sex
#>   Male Female 
#>     10      7 
#> 
#> $Blond.Blue
#> Sex
#>   Male Female 
#>     30     64 
#> 
#> $Black.Hazel
#> Sex
#>   Male Female 
#>     10      5 
#> 
#> $Brown.Hazel
#> Sex
#>   Male Female 
#>     25     29 
#> 
#> $Red.Hazel
#> Sex
#>   Male Female 
#>      7      7 
#> 
#> $Blond.Hazel
#> Sex
#>   Male Female 
#>      5      5 
#> 
#> $Black.Green
#> Sex
#>   Male Female 
#>      3      2 
#> 
#> $Brown.Green
#> Sex
#>   Male Female 
#>     15     14 
#> 
#> $Red.Green
#> Sex
#>   Male Female 
#>      7      7 
#> 
#> $Blond.Green
#> Sex
#>   Male Female 
#>      8      8 
#> 
co_table(HairEyeColor, 1:2, collapse = "")
#> $BlackBrown
#> Sex
#>   Male Female 
#>     32     36 
#> 
#> $BrownBrown
#> Sex
#>   Male Female 
#>     53     66 
#> 
#> $RedBrown
#> Sex
#>   Male Female 
#>     10     16 
#> 
#> $BlondBrown
#> Sex
#>   Male Female 
#>      3      4 
#> 
#> $BlackBlue
#> Sex
#>   Male Female 
#>     11      9 
#> 
#> $BrownBlue
#> Sex
#>   Male Female 
#>     50     34 
#> 
#> $RedBlue
#> Sex
#>   Male Female 
#>     10      7 
#> 
#> $BlondBlue
#> Sex
#>   Male Female 
#>     30     64 
#> 
#> $BlackHazel
#> Sex
#>   Male Female 
#>     10      5 
#> 
#> $BrownHazel
#> Sex
#>   Male Female 
#>     25     29 
#> 
#> $RedHazel
#> Sex
#>   Male Female 
#>      7      7 
#> 
#> $BlondHazel
#> Sex
#>   Male Female 
#>      5      5 
#> 
#> $BlackGreen
#> Sex
#>   Male Female 
#>      3      2 
#> 
#> $BrownGreen
#> Sex
#>   Male Female 
#>     15     14 
#> 
#> $RedGreen
#> Sex
#>   Male Female 
#>      7      7 
#> 
#> $BlondGreen
#> Sex
#>   Male Female 
#>      8      8 
#>