[adsense:responsibe:9545213979]
> x <- c(rep(47,1),rep(48,3),rep(49,2),rep(50,8),rep(51,3),rep(52,2) ,rep(53,1)); > mean(x) [1] 49.95
x := Join[ConstantArray[47, 1], ConstantArray[48, 3], ConstantArray[49, 2], ConstantArray[50, 8], ConstantArray[51, 3], ConstantArray[52, 2], ConstantArray[53, 1]] Mean[x] 999/20 N[%] 49.95
Comentarios recientes