« [R]女子大生200人の身長の歪度(「統計解析のはなし」(東京図書)、p.41) | トップページ | [R]バージョン4.2以降の環境でシフトJISのファイルを扱う »

2022年11月26日 (土)

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

> dtf <- read.csv("table1_1_10.csv", header = TRUE)
> mi <- dtf$midpoint
> fi <- dtf$frequency
> nn <- sum(fi)
> xm <- sum(mi * fi) / nn
> ss2 <- sum((mi - xm) ^ 2 * fi) / nn
> ss <- sqrt(ss2)
> a4 <- sum((mi - xm) ^ 4 * fi) / (nn * ss ^ 4)
> cat(sprintf("尖度 a4 = %f\n", a4))
尖度 a4 = 2.783519

« [R]女子大生200人の身長の歪度(「統計解析のはなし」(東京図書)、p.41) | トップページ | [R]バージョン4.2以降の環境でシフトJISのファイルを扱う »

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

コメント

コメントを書く

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

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

« [R]女子大生200人の身長の歪度(「統計解析のはなし」(東京図書)、p.41) | トップページ | [R]バージョン4.2以降の環境でシフトJISのファイルを扱う »

無料ブログはココログ

■■

■■■