#####   R-code for making Figure 9.2

	postscript("fig92.ps",width=5,height=5,horizontal=F)
	
	k        <- c(1,5,10,20,50)
	arl1     <- c(40.3350,86.6232,113.8118,125.5811,163.0999)
	arl2     <- c(168.542,190.799,196.703,202.642,203.691)
	arl3     <- c(61.682,103.517,143.376,169.751,184.183)
	goal     <- rep(200,5)

	plot(k,arl1,type="l",lty=1,xlab="r",ylab="IC ARL",
	     mgp=c(2,1,0),xlim=c(0,50),ylim=c(0,202),cex=0.8)
	lines(k,arl2,lty=3,cex=0.8)
	lines(k,arl3,lty=4,cex=0.8)
	lines(k,goal,lty=2,cex=0.8)
	legend(30,45,c("Crosier","MEWMA,r=0.05","MEWMA,r=0.2"),
               lty=c(1,3,4),cex=0.7)  

	graphics.off()