data('HairEyeColor')
dat <- as.data.frame(HairEyeColor)
contTables(dat, rows = 'Hair', cols = 'Eye', counts = 'Freq')
#
# Contingency Tables
#
# Contingency Tables
# -----------------------------------------------------
# Hair Brown Blue Hazel Green Total
# -----------------------------------------------------
# Black 68 20 15 5 108
# Brown 119 84 54 29 286
# Red 26 17 14 14 71
# Blond 7 94 10 16 127
# Total 220 215 93 64 592
# -----------------------------------------------------
#
#
# X<U+00B2> Tests
# -------------------------------
# Value df p
# -------------------------------
# X<U+00B2> 138 9 < .001
# N 592
# -------------------------------
#
Run the code above in your browser using DataLab