7,0 2,6 8,8 6,0 5,7 4,6 3,0 3,5 5,3 5,8 4,8 4,3
27 <25 22 20 [20-24] 22 26 23 >23 18 26 <32 22 23 >20
set.seed(123) y10 <- rnorm(10,10,1.5) y50 <- rep(y10,5) y100 <- rep(y10,10) y1000 <- rep(y10,100)