［R］女子大生200人の身長を5cmきざみで整理した度数分布表（「統計解析のはなし」（東京図書）、p.12）

> dtf <- read.csv("table1_1_1.csv", header = TRUE)
> w <- 5
> sumn <- 0
> for (i in seq(140, 165, w)) {
+ n <- length(which(dtf$height > i & dtf$height <= i + w))
+ cat(sprintf("%d～%d %2d\n", i, i + w, n))
+ sumn <- sumn + n
+ }
140～145  1
145～150 11
150～155 54
155～160 76
160～165 45
165～170 13
> cat(sprintf("計 %d\n", sumn))
計 200