x = c(2.35,4.21,3.32,5.35,4.17,4.13,2.78,4.26,3.58,4.34,4.84,4.41,4.78,3.95,3.92,3.58,3.66,4.28,3.26,3.50,2.70,4.61,4.75,2.91,3.91,4.59,4.19,2.68,4.52,4.91,3.18,3.68,4.83,3.87,3.95,3.91,4.15,4.55,4.80,3.41,4.12,3.95,5.08,4.53,3.92,3.58,5.35,3.84,3.60,3.51,4.06,3.07,3.55,4.23,3.57,4.83,3.52,3.84,4.50,3.96,4.50,3.27,4.52,3.19,4.59,3.75,3.98,4.13,4.26,3.63,3.87,5.71,3.30,4.73,4.17,5.13,3.78,4.57,3.80,3.93,3.78,3.99,4.48,4.28,4.06,5.26,5.25,3.98,5.03,3.51,3.86,3.02,3.70,4.33,3.29,3.25,4.15,4.36,4.95,3.00,3.26)
range(x)
max(x)-min(x)
hist(x,breaks=seq(2.3,5.9,.3),axes = F)
axis(1,seq(2.3,5.9,.3),seq(2.3,5.9,.3))
axis(2,0:20)
abline(h=c(0:20),lty=3)