［R］女子大生200人の身長の母分散の90%信頼区間（「統計解析のはなし」（東京図書）pp.163-164）
> x <- c(159, 158, 151, 167, 151)
> x <- c(x, 160, 160, 158, 160, 158)
> xm <- mean(x)
> nn <- length(x)
> s2 <- var(x)
> degf <- nn - 1
> ah <- 0.1
> ca <- qchisq(1 - ah / 2, degf, lower.tail = FALSE)
> cb <- qchisq(ah / 2, degf, lower.tail = FALSE)
> a <- (nn - 1) * s2 / cb
> b <- (nn - 1) * s2 / ca
> # 女子大生200人の身長の母分散の90%信頼区間
> cat(sprintf("%.2f≦σ^2≦%.2f\n", a, b))
11.32≦σ^2≦57.62
« ［R］新型ナットの平均内径の99%信頼区間（「統計解析のはなし」（東京図書）pp.154-155） | トップページ | ［R］自動車の燃費の母分散の95%信頼区間（「統計解析のはなし」（東京図書）pp.165-166） »
「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］新型ナットの平均内径の99%信頼区間（「統計解析のはなし」（東京図書）pp.154-155） | トップページ | ［R］自動車の燃費の母分散の95%信頼区間（「統計解析のはなし」（東京図書）pp.165-166） »
コメント