##### R-code for making Figure 3.9

xbar = c(2, 7, 4, 3, 9, 2, 5, 2, 6, 1, 8, 3, 5, 10, 2)
i <- seq(1,15)

U=11.034
C=4.6
L=0

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

plot(i,xbar,type="o",lty=1,pch=16,xlab="i",ylab=expression(c[i]),
     mgp=c(2,1,0),xlim=c(0,15), ylim=c(-1,12),cex=0.8)
lines(i,rep(U,length(i)),lty=2,cex=0.8)
lines(i,rep(C,length(i)),lty=2,cex=0.8)
lines(i,rep(L,length(i)),lty=2,cex=0.8)
axis(4,at=c(L,C,U),labels=c("L","C","U"),cex=0.8,las=1)

graphics.off()