例題：

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

表 5．性別の運転免許保有状況

	あり	なし	合計
男子	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

> fisher.test(tbl4)

	Fisher's Exact Test for Count Data

data:  tbl4 
p-value = 0.1026
alternative hypothesis: true odds ratio is not equal to 1 
95 percent confidence interval:
   0.5364938 682.2665965 
sample estimates:
odds ratio 
   9.47099