#####   R-code for making Figure 2.7

	x  <- c(18, 27, 56, 19, 33, 24, 19, 48, 37, 25, 20, 22, 31,
	        29, 65, 41, 22, 39, 37, 22, 45, 22, 43, 61, 53)

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

	hist(x, breaks=c(10,20,30,40,50,60,70), freq=T, right=F,
	     xlab="Age",mgp=c(2,1,0),cex=0.8,main="")

	graphics.off()