R による解析: > tbl3 <- matrix(c(13, 4, 6, 14), ncol=2, byrow=T) > tbl3 [,1] [,2] [1,] 13 4 [2,] 6 14 > # 両側検定 > fisher.test(tbl3) Fisher's Exact Test for Count Data data: tbl3 p-value = 0.008138 alternative hypothesis: true odds ratio is not equal to 1 95 percent confidence interval: 1.440142 43.843385 sample estimates: odds ratio 7.11257 > # 片側検定 > fisher.test(tbl3, alternative="g") Fisher's Exact Te