パワーアナリシス(t 検定)power.t.test

*機能

t 検定のパワーアナリシスを行う。~
t 検定の検出力を求めること,また,所定の検出力を得るためのパラメータ(標本サイズなど)を求める。

*使用法

 power.t.test(n = NULL, delta = NULL, sd = 1, sig.level = 0.05,
              power = NULL,
              type = c("two.sample", "one.sample", "paired"),
              alternative = c("two.sided", "one.sided"),
              strict = FALSE)

*引数

 n            群あたりのサンプルサイズ
 delta        平均値の差の推定値
 sd           両群に共通する標準偏差の推定値(デフォルトは 1)
 sig.level    有意水準(第1種の過誤の確率 α)(デフォルトは 0.05)
 power        検出力(1から第2種の過誤を引いた確率 1-β)
 type         検定の種類を文字列で指定する(省略形も可)
              "two.sample" 独立 2 標本(2群の平均値の差の検定)(デフォルト)
              "one.sample" 1 標本(母平均の検定)
              "paired"     関連のある 2 標本(対応のある t 検定)
 alternative  対立仮説の種類を文字列で指定(省略形も可)
              "two.sided" 両側検定(デフォルト)
              "one.sided" 片側検定
 strict	      両側検定のときに厳密に計算(デフォルトは FALSE)

注:n, delta,power, sd 及び sig.level のうち,どれか一つだけ NULL にして関数を呼ぶ。そうすると,NULL であったパラメータの値が計算される。sd のデフォルトは 1,sig.level のデフォルトは 0.05 なので,この 2 つを計算したいときにはそれを明示的に NULL にして関数を呼ばなければならない。~
注:strict=TRUE で両側検定のときには,検出力は実際の効果と反対側の棄却域の確率も含む(もしこれが FALSE であれば,真の差が0のときには,検出力は有意水準の半分になってしまう)。

*戻り値

**関数への入力

 $ n
 $ delta
 $ sd
 $ sig.level
 $ power
 $ alternative

**関数からの出力
 $ note      : 注
 $ method    : 方法

*例1 各群 10 例の独立 2 標本で,平均値の差が 5,共通する標準偏差が 2,有意水準が 0.05 のときの検出力を求める

 > power.t.test(n=10, delta=3, sd=2, sig.level=0.05, power=NULL, 
                type="two.sample", alternative="two.sided", strict=TRUE)
 
      Two-sample t test power calculation 
 
               n = 10
           delta = 3
              sd = 2
       sig.level = 0.05
           power = 0.8869702
     alternative = two.sided
 
  NOTE: n is number in *each* group 

*例2 独立 2 標本で,平均値の差が 5,共通する標準偏差が 2,有意水準が 0.05,検出力が 0.8 ほしいときのサンプルサイズを求める

 > power.t.test(n=NULL, delta=3, sd=2, sig.level=0.05, power=0.8, type="two.sample", alternative="two.sided", strict=TRUE)
 
      Two-sample t test power calculation 
 
               n = 8.060295
           delta = 3
              sd = 2
       sig.level = 0.05
           power = 0.8
     alternative = two.sided
 
  NOTE: n is number in *each* group 
 
 Warning messages:
 1: full precision was not achieved in 'pnt' # このような警告が出るが,無視する


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS