［R］女子大生200人の身長の標準偏差と不偏分散の平方根（「統計解析のはなし」（東京図書）、p.33）
> 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)
> ss <- sqrt(ss2)
> s <- sqrt(s2)
> cat(sprintf("女子大生200人の身長の標準偏差 S = %.4f\n", ss))
女子大生200人の身長の標準偏差 S = 5.0423
> cat(sprintf("女子大生200人の身長の不偏分散の平方根 s = %.4f\n", s))
女子大生200人の身長の不偏分散の平方根 s = 5.0549
« ［R］女子大生200人の身長の分散と不偏分散（「統計解析のはなし」（東京図書）、pp.31-32） | トップページ | ［R］女子大生200人による6つの変量（身長、体重、バスト、ウエスト、ヒップ、男性の身長）の平均、分散、標準偏差、最小値、最大値（「統計解析のはなし」（東京図書）、p.36） »
「R（本の計算を再現）」カテゴリの記事
- ［R］5,000打数以上経験した全プレイヤーの三振率とホームラン率（「Rによるセイバーメトリクス入門」（技術評論社）pp.61-63）(2023.03.28)
- ［R］10年ごとに最も多くホームランを放ったプレイヤー（「Rによるセイバーメトリクス入門」（技術評論社）pp.59-61）(2023.03.26)
- ［R］cwevent.exeの出力フィールドのヘッダー一覧をベクトルで得る(2023.03.24)
- ［R］1960年代に最も多くホームランを放ったプレイヤー（「Rによるセイバーメトリクス入門」（技術評論社）pp.58-59）(2023.03.22)
- ［R］正規分布におけるp値（「まずはこの一冊から 意味が分かる統計解析」（ペレ出版）、p.95）(2023.03.03)
« ［R］女子大生200人の身長の分散と不偏分散（「統計解析のはなし」（東京図書）、pp.31-32） | トップページ | ［R］女子大生200人による6つの変量（身長、体重、バスト、ウエスト、ヒップ、男性の身長）の平均、分散、標準偏差、最小値、最大値（「統計解析のはなし」（東京図書）、p.36） »
コメント