2009-10-06 ■ 統計関係 body <- rnorm(30, c(rep(3, 10), rep(5, 10), rep(7, 10)), c(1, 1)) uwaba <- c(rep("mitsu", 10), rep("ichi", 10), rep("kin", 10))