plot.confidence.box: Create a box for the confidence interval.
In haberdashPI/wright.lab.util: A set of utilitiy functions used in our lab.

TODO

1	plot.confidence.box(data, x, width, col = "lightgrey")

`data`
`x`
`width`
`col`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (data, x, width, col = "lightgrey") 
{
    e <- t.conf(data)
    m <- mean(data)
    polygon(x = c(x, x + width, x + width, x), y = c(m + e, m + 
        e, m - e, m - e), col = col)
  }