#####   R-code for making Figure 2.6

	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("fig26.ps",width=4.5,height=3.5,horizontal=F)

	boxplot(x,range=0,outline=F,horizontal=T,frame.plot = F,xlab="Age",
	        xaxt="n")
	axis(1, at=c(15,25,35,45,55,65), labels=c("15","25","35","45",
             "55","65"),cex=0.8)

	graphics.off()