［R］女子大生200人による6つの変量（身長、体重、バスト、ウエスト、ヒップ、男性の身長）の平均、分散、標準偏差、最小値、最大値（「統計解析のはなし」（東京図書）、p.36）

書籍の計算では、計算途中で適宜切り捨てを行っているらしく、分散や標準偏差はぴったり一致しない。

> dtf <- read.csv("table1_1_1.csv", header = TRUE)
> k <- 6
> nn <- nrow(dtf)
> xm <- xv <- double(k)
> xm <- apply(dtf[, -1], 2, mean)
> for (i in 1:k) xv[i] <- sum((dtf[, i + 1] - xm[i]) ^ 2 / nn)
> xs <- sqrt(xv)
> xmin <- apply(dtf[, -1], 2, min)
> xmax <- apply(dtf[, -1], 2, max)
> rdtf <- data.frame(xm, xv, xs, xmin, xmax)
> print(rdtf)
            xm       xv       xs xmin xmax
height 157.775 25.42437 5.042259  143  170
weight  50.475 31.09937 5.576681   38   70
bust    81.870 14.02310 3.744743   71   98
waist   61.570  7.08510 2.661785   56   72
hip     87.135 15.00677 3.873858   78   98
male   175.695 16.24198 4.030133  163  185