[adsense:responsibe:9545213979]
x1 <- c(rep(10,5),rep(25,5),rep(35,6),rep(45,10),rep(55,38) ,rep(65,30),rep(75,20),rep(85,4),rep(95,2)); m1 <- mean(x1)
m1 [1] 57.54167
x1 := Join[ConstantArray[10, 5], ConstantArray[25, 5], ConstantArray[35, 6], ConstantArray[45, 10], ConstantArray[55, 38] , ConstantArray[65, 30],ConstantArray[75, 20], ConstantArray[85, 4] , ConstantArray[95, 2]]; m1 := Mean[x1]; N[m1] 57.5417
Comentarios recientes