最近、そのようなテーブルでフィッシャーの「正確な」テストを実行することは完全に可能です。Stataを使用してp = 0.087を取得しました(tabi 2 1 \ 2 3 \ .... , exact
。実行には0.19秒かかりました)。
以下のchlのコメントの後に編集します(コメントとして追加しようとしましたが、フォーマットできません)。
私はR 2.12.0で動作しますが、「ワークスペース」オプションをデフォルト値の200000よりも大きくする必要がありました。
> 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よりも少し速いですが、fisher.testという事実にもかかわらず、「ワークスペース」を使用してRの通常の意味とは異なるものを意味するエラーメッセージの意味を理解するのにかかる時間を考えると、これは疑わしい関連性がありますRのコア 'stats'パッケージの一部です。)