#####   R-code for making Figure 9.1.

	postscript("fig91.ps",width=6.5,height=3.5,horizontal=F)
	
	par(mfrow=c(1,2),mar=c(4,3,1,1))
	
	lambda   <- c(0.01,0.1,0.5,1.0,1.5,2.0,5.0)
	arl      <- c(27.137,33.969,90.28,120.25,133.58,147.839,181.6503)
	goal     <- rep(200,7)

	plot(lambda,arl,type="o",pch=5,xlab=expression(tilde(lambda)),
             ylab="IC ARL",mgp=c(2,1,0),ylim=c(0,350),cex=0.8)
	lines(lambda,goal,lty=2,cex=0.8)
	title(xlab="(a)",cex=0.8)

	lambda   <- c(0.01,0.1,0.5,1.0,1.5,2.0,5.0)
	arl      <- c(27.137,39.364,265.2238,324.1398,237.112,174.8176,125.538)
	goal     <- rep(200,7)

	plot(lambda,arl,type="o",pch=5,xlab=expression(tilde(lambda)),
             ylab="IC ARL",mgp=c(2,1,0),ylim=c(0,350),cex=0.8)
	lines(lambda,goal,lty=2,cex=0.8)
	title(xlab="(b)",cex=0.8)

	graphics.off()