« [R]女子大生200人による6つの変量(身長、体重、バスト、ウエスト、ヒップ、男性の身長)の平均、分散、標準偏差、最小値、最大値(「統計解析のはなし」(東京図書)、p.36) | トップページ | [R]女子大生200人の身長の尖度(「統計解析のはなし」(東京図書)、p.42) »

2022年11月25日 (金)

[R]女子大生200人の身長の歪度(「統計解析のはなし」(東京図書)、p.41)

> dtf <- read.csv("table1_1_1.csv", header = TRUE)
> xi <- dtf$height
> nn <- length(xi)
> xm <- mean(xi)
> ss <- sqrt((nn - 1) / nn * var(xi))
> a3 <- sum((xi - xm) ^ 3) / (nn * ss ^ 3)
> cat(sprintf("歪度 a3 = %f\n", a3))
歪度 a3 = 0.045148

« [R]女子大生200人による6つの変量(身長、体重、バスト、ウエスト、ヒップ、男性の身長)の平均、分散、標準偏差、最小値、最大値(「統計解析のはなし」(東京図書)、p.36) | トップページ | [R]女子大生200人の身長の尖度(「統計解析のはなし」(東京図書)、p.42) »

R(本の計算を再現)」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

« [R]女子大生200人による6つの変量(身長、体重、バスト、ウエスト、ヒップ、男性の身長)の平均、分散、標準偏差、最小値、最大値(「統計解析のはなし」(東京図書)、p.36) | トップページ | [R]女子大生200人の身長の尖度(「統計解析のはなし」(東京図書)、p.42) »

無料ブログはココログ

■■

■■■