#####   R-code for making Figure 2.11

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

	x <- c(0.7, 0.9, 1.5, 1.5, 1.5, 1.7, 1.7, 2.1, 2.3, 3.4)
	plot(ecdf(x),xlab="x",ylab="Fn(x)",mgp=c(2,1,0),cex=0.8,main="")

	graphics.off()