青木先生の関数fisher exact testを使う時の注意点

http://aoki2.si.gunma-u.ac.jp/R/fisher.html
このページから。

source("http://aoki2.si.gunma-u.ac.jp/R/src/fisher.R", encoding="euc-jp")

をコピペしたらfisher exact testが出来る。

ｘに適当なデータを入れてやってみると

> fisher(x)

 以下にエラー asymptotic() :  関数 "printf" を見つけることができませんでした 

と出てくる事がある。

この場合はこのページ

http://aoki2.si.gunma-u.ac.jp/taygeta/statistics.cgi?mode=res&no=15678

の真ん中あたりで回答があり、

printf <- function(fmt, ...)
{
cat(sprintf(fmt, ...))
}

と打ち込めば使えるようになります。

何度か間違ってしまったのでまとめ。

all.R入れろって話ですかね。うーん。

あと、レトロな解析な場合は基本ｔ検定とカイ自乗検定は使わずにマンホイットニー（ウィルコクソン）とフィッシャーでいったほうがいいと思います。