# Data from Yates F. 1934. Contingency tables involving small numbers and the X2 test. Supplement to the Journal of the Royal Statistical Society
1(2): 217-235.
# In turn, he took data from Hellman M. 1914. A study of some etiological factors of malocclusion. The Dental Cosmos. 56(9): 1017-1032.
#
# Example:
# ee <- read.table("teeth.txt", h=T)
# chisq.test(table(ee)) # Yates correction is default for 2x2 tables
# summary(table(ee)) # No correction in summary.table()
# chisq.test(table(ee), correct=F) # No correction stated explicitly
# chisq.test(table(ee), simulate.p.value=T) # Simulation calucales correction
# fisher.test(table(ee)) # Exact test
#
FEED	Type of feeding (both bottle/breast cases removed)
TEETH	Normal or crowded ("malocclusion")