Fig2.1 <- function()
{
#  postscript(file = "Fig2.1.ps", height = 6.5, width = 6.5, horiz = F)
  par(mfrow = c(2, 2), mar = c(2.5, 1.5, 1.5, 0.5), mgp = c(5, 0.4, 0))
  ofdat <- c(4.37, 3.87, 4, 4.03, 3.5, 4.08, 2.25, 4.7, 1.73, 4.93, 1.73, 
             4.62, 3.43, 4.25, 1.68, 3.92, 3.68, 3.1, 4.03, 1.77, 4.08, 1.75,
             3.2, 1.85, 4.62, 1.97, 4.5, 3.92, 4.35, 2.33, 3.83, 1.88, 4.6, 
             1.8, 4.73, 1.77, 4.57, 1.85, 3.52, 4, 3.7, 3.72, 4.25, 3.58, 
             3.8, 3.77, 3.75, 2.5, 4.5, 4.1, 3.7, 3.8, 3.43, 4, 2.27, 4.4, 
             4.05, 4.25, 3.33, 2, 4.33, 2.93, 4.58, 1.9, 3.58, 3.73, 3.73, 
             1.82, 4.63, 3.5, 4, 3.67, 1.67, 4.6, 1.67, 4, 1.8, 4.42, 1.9, 
             4.63, 2.93, 3.5, 1.97, 4.28, 1.83, 4.13, 1.83, 4.65, 4.2, 3.93, 
             4.33, 1.83, 4.53, 2.03, 4.18, 4.43, 4.07, 4.13, 3.95, 4.1, 2.27,
             4.58, 1.9, 4.5, 1.95, 4.83, 4.12)
  drawhist(ofdat, 0.05)
  drawhist(ofdat, 0.1)
  drawhist(ofdat, 0.25)
  drawhist(ofdat, 0.5)
#  graphics.off()
  NULL
}

drawhist <- function(dat,lambda=0.5)
{
  breakloc <- min(dat) - 0.001 + (0:10000) * lambda
  breakloc <- breakloc[breakloc < max(dat)]
  breakloc <- c(breakloc, breakloc[length(breakloc)] + lambda)
  hist(dat, breaks = breakloc, col = 0, probability = T, axes = F)
  axis(1, pos = 0)
  axis(2, pos = breakloc[1] - 0.1)
  lines(c(breakloc[1] - 1.25 * lambda, breakloc[1]), c(0, 0))
  mtext(side = 1, line = 0.7, paste("Binwidth = ", lambda))
  NULL
}