［R］女子校生5人の体重の偏差（「意味がわかる統計解析」（ペレ出版）p.41）

以下をファイルtable_p041.csvに保存する。

no,  x
 1, 51
 2, 49
 3, 50
 4, 57
 5, 43

計算する。

> library(tidyverse)
> tbl <- read_csv("table_p041.csv", progress = FALSE, show_col_types = FALSE)
> # 資料
> print(as.data.frame(tbl))
  no  x
1  1 51
2  2 49
3  3 50
4  4 57
5  5 43
> cat("偏差\n")
偏差
> no <- tbl$no
> x <- tbl$x
> n <- length(x)
> xm <- sum(x) / n
> print(data.frame(番号 = no, 偏差 = x - xm))
  番号 偏差
1    1    1
2    2   -1
3    3    0
4    4    7
5    5   -7