例題：

　「13 人の学生について，自動車運転免許を持っているかどうかを調査した結果が，表 4 のようにまとめられた。男女で免許保有率に差があるかどうか検定しなさい。」

表 4．性別の運転免許保有状況（その 1）

	あり	なし	合計
男子	4	2	6
女子	1	6	7
合計	5	8	13

R による解析：

> tbl4 <- matrix(c(4, 2, 1, 6), ncol=2, byrow=TRUE)

> tbl4
     [,1] [,2]
[1,]    4    2
[2,]    1    6

> chisq.test(tbl4, correct=FALSE) # 連続性の補正をしない場合

	Pearson's Chi-squared test

data:  tbl4 
X-squared = 3.7452, df = 1, p-value = 0.05296

Warning message: 
Chi-squared approximation may be incorrect in: chisq.test(tbl4, correct = FALSE) 

> chisq.test(tbl4) # 連続性の補正をする場合

	Pearson's Chi-squared test with Yates' continuity correction

data:  tbl4 
X-squared = 1.8591, df = 1, p-value = 0.1727

Warning message: 
Chi-squared approximation may be incorrect in: chisq.test(tbl4)