« [R]女子大生200人の身長の中央値(「統計解析のはなし」(東京図書)、p.25) | トップページ | [R]女子大生200人の身長の標準偏差と不偏分散の平方根(「統計解析のはなし」(東京図書)、p.33) »

2022年11月22日 (火)

[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]女子大生200人の身長の中央値(「統計解析のはなし」(東京図書)、p.25) | トップページ | [R]女子大生200人の身長の標準偏差と不偏分散の平方根(「統計解析のはなし」(東京図書)、p.33) »