例題：

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

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

	あり	なし	合計
男子	40	20	60
女子	10	60	70
合計	50	80	130

R による解析：

> tbl6 <- matrix(c(40, 20, 10, 60), ncol=2, byrow=TRUE)

> tbl6
     [,1] [,2]
[1,]   40   20
[2,]   10   60

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

	Pearson's Chi-squared test

data:  tbl6 
X-squared = 37.4524, df = 1, p-value = 9.367e-10

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

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

data:  tbl6 
X-squared = 35.272, df = 1, p-value = 2.867e-09