#####   R-code for making Figure 2.2

	pdf("fig22.pdf",width=5,height=5)

	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)",lwd=2,mgp=c(2,1,0),cex=0.8,main="")

	graphics.off()