［R］母分散σ^2が既知の場合の、女子大生200名の身長の母平均の区間推定（「統計解析のはなし」（東京図書）pp.146-148）
> d <- c(159, 158, 151, 167, 151)
> d <- c(d, 160, 160, 158, 160, 158)
> s <- 5.04
> xm <- mean(d)
> ah <- 0.05
> z <- qnorm(ah / 2, lower.tail = FALSE)
> nn <- length(d)
> print(xm)
[1] 158.2
> print(z)
[1] 1.959964
> print(s)
[1] 5.04
> print(nn)
[1] 10
> a <- xm - z * s / sqrt(nn)
> b <- xm + z * s / sqrt(nn)
> # 母平均μの95%信頼区間
> cat(sprintf("%.1f≦μ≦%.1f\n", a, b))
155.1≦μ≦161.3
> ah <- 0.01
> z <- qnorm(ah / 2, lower.tail = FALSE)
> a <- xm - z * s / sqrt(nn)
> b <- xm + z * s / sqrt(nn)
> # 母平均μの99%信頼区間
> cat(sprintf("%.1f≦μ≦%.1f\n", a, b))
154.1≦μ≦162.3
« ［R］F分布の各αパーセント点（「統計解析のはなし」（東京図書）p.128） | トップページ | ［R］母分散σ^2が未知の場合の、女子大生200名の身長の母平均の区間推定（「統計解析のはなし」（東京図書）pp.148-150） »
「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］F分布の各αパーセント点（「統計解析のはなし」（東京図書）p.128） | トップページ | ［R］母分散σ^2が未知の場合の、女子大生200名の身長の母平均の区間推定（「統計解析のはなし」（東京図書）pp.148-150） »
コメント