［R］t分布の各αパーセント点（「統計解析のはなし」（東京図書）p.125）
> n <- c(5, 10)
> a <- c(0.05, 0.01)
> for (i in 1:length(n)) {
+ for (j in 1:length(a)) {
+ cat(sprintf("両側 a = %.2f t_%d(a/2) = %.3f\n", a[j], n[i], qt(a[j] / 2, n[i], lower.tail = FALSE)))
+ cat(sprintf("片側 a = %.2f t_%d(a) = %.3f\n", a[j], n[i], qt(a[j], n[i], lower.tail = FALSE)))
+ }
+ }
両側 a = 0.05 t_5(a/2) = 2.571
片側 a = 0.05 t_5(a) = 2.015
両側 a = 0.01 t_5(a/2) = 4.032
片側 a = 0.01 t_5(a) = 3.365
両側 a = 0.05 t_10(a/2) = 2.228
片側 a = 0.05 t_10(a) = 1.812
両側 a = 0.01 t_10(a/2) = 3.169
片側 a = 0.01 t_10(a) = 2.764
« ［R］χ^2分布の各αパーセント点（「統計解析のはなし」（東京図書）p.121） | トップページ | ［R］データフレームから特定の列を削除する »
「R（本の計算を再現）」カテゴリの記事
- ［R］ガンマ関数の値の計算（「入門 統計解析 －医学・自然科学編」（東京図書）pp.120-121）(2025.01.24)
- ［R］グループに対するダミー変数（性別）（「44の例題で学ぶ計量経済学」（オーム社）pp.231-232）(2023.11.28)
- ［R］重回帰モデルにおける仮説検定（「44の例題で学ぶ計量経済学」（オーム社）pp.205-206）(2023.11.27)
- ［R］重回帰モデルにおけるt検定（「44の例題で学ぶ計量経済学」（オーム社）pp.185-188）(2023.11.26)
- ［R］平均勤続年数と所定内賃金（「線形回帰分析」（朝倉書店）pp.116-118）(2023.11.06)
« ［R］χ^2分布の各αパーセント点（「統計解析のはなし」（東京図書）p.121） | トップページ | ［R］データフレームから特定の列を削除する »
コメント