場合が多い

• 正確確率検定が自由度の増大とともに重くなることをRのfisher.testを使って実感するためのコード

#行列を作る
m<-matrix(c(10,20,30,40,50,60),nrow=2,nrow=3)
m
#作る行列の値の納め方を変える
m<-matrix(c(10,20,30,40,50,60),nrow=2,nrow=3,byrow=TRUE)
m
fisher.test(m)
#大きな表、大きな自由度
nrow=4;ncol=4
m<-matrix(round(runif(nrow*ncol)*10,0),nrow=nrow,ncol=ncol)
m
fisher.test(m)