2.4 Simulacion estadistica del histograma del Ejercicio 1.

 x1 <- c(rep(15,2),rep(30,4),rep(40,10),rep(50,10),rep(60,3)
,rep(75,1));

 x2 <- (x1-40)/5;
hist(x1, col="blue", breaks=c(5,25,35,45,55,65,85),xaxt = "n"
,freq=TRUE)

axis(1,c(5,15,25,35,45,55,65,75,85))

x1 := Join[ConstantArray[15, 2], ConstantArray[30, 4], 
   ConstantArray[40, 10], ConstantArray[50, 10], ConstantArray[60, 3],
    ConstantArray[75, 1]];
x2 := (x1 - 40)/5;

Histogram[x1, {{5, 25, 35, 45, 55, 65, 85}}]