本文へスキップ
からだにいいもの

Rのトピックスを中心に『まだ、まだ、知らない、役に立つ情報?』を発信します。

Rで解析:t検定からANOVAまで幅広く対応と検出力分析など「ggpower」パッケージの紹介

医療統計や臨床試験の計画では、研究デザインやサンプルサイズの計算に多くの時間を割くことがあります。特に、t検定やANOVA、回帰分析などの検出力やサンプルサイズの計算です。本パッケージは、t検定、ANOVA、回帰分析、χ二乗検定、比例検定、相関分析、非パラメトリック検定など、多くの研究デザインに対応した検出力分析とサンプルサイズの計算が可能です。

パッケージバージョンは0.1.2。Windows 11 x64 (build 26200)のR version 4.6.1で確認しています。

パッケージのインストール

下記コマンドを実行してください。

# パッケージのインストール
install.packages("ggpower")
# パッケージの読み込み
library("ggpower")
スポンサーリンク

コマンド例

詳細はコメント、パッケージのヘルプを確認してください。

一標本t検定の検出力を計算:power_t_one_sampleコマンド

オプション意味初期値
d効果サイズ(Cohenの (d))を指定
n全サンプル数を指定
alpha有意水準を指定0.05
tails尾部の種類を指定;”two”(両側検定)または”one”(片側検定)“two”
# 効果サイズが0.5の場合の1標本検定の検出力計算
power_t_one_sample(d = 0.5, n = 40, alpha = 0.05)

実行結果:

[1] 0.8693981

対応のあるt検定の検出力を計算:power_t_pairedコマンド

オプション意味初期値
dペアサンプル効果サイズを指定
nペアの数を指定
alpha有意水準を指定0.05
tails尾部の種類を指定;”two”(両側検定)または”one”(片側検定)“two”
# 対応のあるt検定の検出力計算
power_t_paired(d = 0.5, n = 20)

実行結果:

[1] 0.5645044

分布関数を使った計算スクリプトを評価:ggpower_calculatorコマンド

オプション意味初期値
script計算スクリプトを指定;算術演算、代入、コメント、対応する分布関数ヘルパーを含められる
# z値を計算するためのggpower calculatorの使用例
ggpower_calculator("x <- 2^3\nx + zinv(.975)")

実行結果:

[1] 9.959964

統計的有意性の分析結果に基づく実験デザインの最適化:power_computeコマンド

オプション意味初期値
testテストIDを指定;ggpower_tests()で一覧を確認できる
次のコマンド紹介例を参照
analysisパワー分析モードを指定;”a_priori”、”compromise”、”criterion”、”post_hoc”、”sensitivity”のいずれか“post_hoc”
# t検定の検出力計算(事前分布あり)
power_compute("t_one_sample", "a_priori", d = 0.625, alpha = 0.05,
  power = 0.95, tails = "one")

実行結果:

ggpower result
Test: t test: Means - difference from constant (one sample case)
Analysis: a_priori

Input parameters
  tails: greater
  effect_size_d: 0.625
  alpha: 0.05
  total_sample_size: 30
  target_power: 0.95


Output parameters
  noncentrality_parameter: 3.423266
  critical_t: 1.699127
  df: 29
  actual_power: 0.9551444


Notes
…(以下略)

対応している統計検定の一覧を取得:ggpower_testsコマンド

サポートされている統計的検定手法を確認できます。

オプション意味初期値
domainドメインで絞り込む;”general”、”biomarker”、”pharma”のいずれかNULL
moduleアプリケーションモジュールで絞り込む;”workspace”、”biomarker”、”clinical”のいずれかNULL
# 検定手法を表示 
ggpower_tests()
ggpower_tests(module = "biomarker")

実行結果:

# 検定手法を表示 
ggpower_tests()$ id
 [1] "t_one_sample"                   "t_paired"                       "t_two_sample"                  
 [4] "t_point_biserial"               "t_linear_regression"            "t_linear_regression_two_groups"
 [7] "t_generic"                      "f_anova_one_way"                "f_anova_special"               
[10] "f_mreg_omnibus"                 "f_mreg_increase"                "f_variance_two"                
[13] "chisq_variance_one"             "chisq_gof"                      "chisq_contingency"             
[16] "exact_binomial"                 "exact_one_proportion"           "exact_sign"                    
[19] "exact_fisher"                   "exact_mcnemar"                  "exact_correlation"             
[22] "exact_mreg_random"              "z_corr_independent"             "z_corr_dependent_common"       
[25] "z_corr_dependent_no_common"     "z_logistic"                     "z_poisson"                     
[28] "z_tetrachoric"                  "wilcoxon_signed"                "wilcoxon_mann_whitney"         
[31] "roc_auc_one"                    "roc_auc_two"                    "diagnostic_acc"                
[34] "survival_logrank"               "cox_regression"                 "discovery_fdr"                 
[37] "ttest_biomarker"                "rct_superiority_continuous"     "rct_superiority_binary"        
[40] "rct_noninferiority_continuous"  "rct_noninferiority_binary"      "rct_equivalence_continuous"    
[43] "rct_equivalence_proportion"     "simon_two_stage"                "cluster_rct"                   
[46] "multi_arm_superiority"          "count_endpoint_poisson"         "survival_pmu"    

一標本t検定の検出力曲線をプロット:ggpower_t_one_sampleコマンド

オプション意味初期値
d効果サイズを指定
alpha有意水準を指定0.05
n_rangeサンプルサイズのベクトルを指定seq(20, 100, by = 5)
tails尾部の種類を指定;”two”(両側検定)または”one”(片側検定)“two”
# 効果サイズが0.5の場合の1標本検定の検出力曲線のプロット
ggpower_t_one_sample(d = 0.5, alpha = 0.05, n_range = seq(20, 100, by = 5))

任意の検定の検出力曲線をプロット:plot_power_curveコマンド

実行すると、指定された分析方法や検定手法に基づく検出力曲線が得られます。固定パラメータに対して使用される検出力分析モードとGoogleで検索するとanalysisオプションの意味がよくわかります。

オプション意味初期値
testテストIDを指定;ggpower_tests()で一覧を確認できる
n_valuesサンプルサイズのベクトルを指定
analysis固定パラメータに対して使用される検出力分析モード;”a_priori”、”compromise”、”criterion”、”post_hoc”、”sensitivity”のいずれか“post_hoc”
# survival_pmuのプロット
plot_power_curve("survival_pmu", n_values = c(200, 300, 400), analysis = "post_hoc")

帰無仮説と対立仮説の分布を可視化:plot_distributionコマンド

オプション意味初期値
resultpower_compute()が返すggpower_resultオブジェクトを指定
# t検定を計算する
result <- power_compute("t_one_sample", "post_hoc", d = 0.5, n = 40)

# 計算結果の分布をプロットする
plot_distribution(result)


この記事が誰かの役に立ちますように。

スポンサーリンク
価格および配送状況は変更される場合があります。購入時は商品ページをご確認ください。
当サイトに表示されている商品情報はAmazonから提供されたものであり、更新または削除される場合があります。
karada-goodはAmazonアソシエイトとして、適格販売により収入を得ています。