plot.confidence.box <- 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.