#####   R-code for making Figure 2.4

	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("fig24.ps",width=6.5,height=3,horizontal=F)

	stripchart(x, pch=16, method = "stack", xlab="Age",mgp=c(2,1,0),
	           xaxt="n",offset=1, frame.plot = F, cex=0.8, xlim=c(10,70))
	axis(1, at=c(15,25,35,45,55,65), labels=c("15","25","35","45",
	     "55","65"),cex=0.8)

	graphics.off()