分割表

      第1列 第2列 第3列 第4列　合計
 第1行    5     2     2     0     9
 第2行    0     1     0     1     2
 第3行    0     2     3     4     9
  合計    5     5     5     5    20

R による解析：

> x <-matrix(c(
+ 	5,2,2,0,
+ 	0,1,0,1,
+ 	0,2,3,4
+ 	), ncol=4, byrow=TRUE)

> x
     [,1] [,2] [,3] [,4]
[1,]    5    2    2    0
[2,]    0    1    0    1
[3,]    0    2    3    4

> fisher.test(x)

	Fisher's Exact Test for Count Data

data:  x
p-value = 0.03981
alternative hypothesis: two.sided