#####  R-code for making Figure 3.10. It reads data from
#####  "example37.dat" generated by the R-code "example37.r"

       postscript("fig310.ps",width=4.5,height=4.5,horizontal=F)

       x <- scan("example37.dat")
       hist(x, freq = FALSE, main="", xlab ="Compressive Strength",cex=0.8)
       lines(density(x)$x,density(x)$y, lty=1,lwd = 2)

       graphics.off()