［R］χ^2分布の各αパーセント点（「統計解析のはなし」（東京図書）p.121）
> n <- c(5, 6)
> a <- 0.05
> for (i in 1:length(n)) {
+ cat(sprintf("n = %d, a = %.2f\n", n[i], a))
+ cat("両側かつ下側 ")
+ cat(sprintf("χ_%d^2 = %.6f\n", n[i], qchisq(a / 2, n[i], lower.tail = TRUE)))
+ cat("両側かつ上側 ")
+ cat(sprintf("χ_%d^2 = %.6f\n", n[i], qchisq(a / 2, n[i], lower.tail = FALSE)))
+ cat("片側かつ下側 ")
+ cat(sprintf("χ_%d^2 = %.6f\n", n[i], qchisq(a, n[i], lower.tail = TRUE)))
+ cat("片側かつ上側 ")
+ cat(sprintf("χ_%d^2 = %.6f\n", n[i], qchisq(a, n[i], lower.tail = FALSE)))
+ }
n = 5, a = 0.05
両側かつ下側 χ_5^2 = 0.831212
両側かつ上側 χ_5^2 = 12.832502
片側かつ下側 χ_5^2 = 1.145476
片側かつ上側 χ_5^2 = 11.070498
n = 6, a = 0.05
両側かつ下側 χ_6^2 = 1.237344
両側かつ上側 χ_6^2 = 14.449375
片側かつ下側 χ_6^2 = 1.635383
片側かつ上側 χ_6^2 = 12.591587
« ［R］WebサイトのWebページをダウンロードする | トップページ | ［R］t分布の各αパーセント点（「統計解析のはなし」（東京図書）p.125） »
「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］WebサイトのWebページをダウンロードする | トップページ | ［R］t分布の各αパーセント点（「統計解析のはなし」（東京図書）p.125） »
コメント