フィッシャーの正確確率検定(直接確率)     Last modified: Aug 25, 2015

例題

 「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 


・ 手法の解説ページ
・ 直前のページへ戻る  ・ E-mail to Shigenobu AOKI