［R］女子大生200人の身長の分散と不偏分散（「統計解析のはなし」（東京図書）、pp.31-32）
> dtf <- read.csv("table1_1_1.csv", header = TRUE)
> xi <- dtf$height
> nn <- length(xi)
> xm <- mean(xi)
> ss2 <- sum((xi - xm) ^ 2) / nn
> s2 <- sum((xi - xm) ^ 2) / (nn - 1)
> cat(sprintf("女子大生200人の身長の分散 S^2 = %.2f\n", ss2))
女子大生200人の身長の分散 S^2 = 25.42
> cat(sprintf("女子大生200人の身長の不偏分散 s^2 = %.2f\n", s2))
女子大生200人の身長の不偏分散 s^2 = 25.55
« ［R］女子大生200人の身長の中央値（「統計解析のはなし」（東京図書）、p.25） | トップページ | ［R］女子大生200人の身長の標準偏差と不偏分散の平方根（「統計解析のはなし」（東京図書）、p.33） »
「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］女子大生200人の身長の中央値（「統計解析のはなし」（東京図書）、p.25） | トップページ | ［R］女子大生200人の身長の標準偏差と不偏分散の平方根（「統計解析のはなし」（東京図書）、p.33） »
コメント