« [R]女子校生5人の体重の偏差(「意味がわかる統計解析」(ペレ出版)p.41) | トップページ | [R]固有値と固有ベクトルを求める »

2023年10月12日 (木)

[R]女子校生5人の体重の分散と標準偏差(「意味がわかる統計解析」(ペレ出版)p.44)

p.41の表に掲載の値をtable_p041.csvに保存しておく。

> library(tidyverse)
> tbl <- read_csv("table_p041.csv", progress = FALSE, show_col_types = FALSE)
> x <- tbl$x
> n <- length(tbl$x)
> xm <- sum(x) / n
> s2 <- sum((x - xm) ^ 2) / n
> s <- sqrt(s2)
> # 分散
> print(s2)
[1] 20
> # 標準偏差
> print(s)
[1] 4.472136

« [R]女子校生5人の体重の偏差(「意味がわかる統計解析」(ペレ出版)p.41) | トップページ | [R]固有値と固有ベクトルを求める »

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

コメント

コメントを書く

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

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

« [R]女子校生5人の体重の偏差(「意味がわかる統計解析」(ペレ出版)p.41) | トップページ | [R]固有値と固有ベクトルを求める »

無料ブログはココログ

■■

■■■