요즘 그런 테이블에서 Fisher의 '정확한'테스트 를 수행하는 것이 완벽하게 가능 합니다. Stata를 사용하여 p = 0.087을 얻었습니다 ( tabi 2 1 \ 2 3 \ .... , exact
. 실행에는 0.19 초가 걸렸습니다).
아래의 chl 님의 댓글 다음에 수정 (댓글로 추가를 시도했지만 형식을 지정할 수 없음) :
R 2.12.0에서 작동하지만 기본값 200000보다 'workspace'옵션을 늘려야했습니다.
> fisher.test(x)
Error in fisher.test(x) : FEXACT error 7.
LDSTP is too small for this problem.
Try increasing the size of the workspace.
> system.time(result<-fisher.test(x, workspace = 400000))
user system elapsed
0.11 0.00 0.11
> result$p.value
[1] 0.0866764
(실행 시간은 Stata보다 약간 빠르지 만 오류 메시지의 의미를 해결하는 데 걸리는 시간을 감안할 때 그것은 의심의 여지가 있습니다. 이는 피셔가 사실에도 불구하고 '작업 공간'을 사용하여 R의 일반적인 의미와 다른 것을 의미합니다. R의 핵심 '통계'패키지의 일부입니다.)