有意差でたよっ - 捨てられたブログ

R Advent Calendar 2014 の初日の dichika 氏『有意差でたよっ』からネタを拝借します。 せっかくセリフが「有意差でたよっ」なので，本当に有意差が出たときにしゃべっていただきたい。より具体的には， t.test を行った結果，有意差が認められた場合に「有意差でたよっ」と言ってもらいます。 まずオリジナルの t.test を持ってきます。簡単のために数値ベクトルを受け取る t.test.default を取得します。 tt <- stats:::t.test.default t.test.default の中身を見てみましょう。 print(tt) # 前略 rval <- list(statistic = tstat, parameter = df, p.value = pval, conf.int = cint, estimate = estimate, nul