if (FALSE) {
plot_errbar(1:100, rnorm(100, 1, 2),
xlab="axe x", ylab="axe y", bty="n", xlim=c(1,100),
errbar.x=2, errbar.y=rnorm(100, 1, 0.1))
x <- 1:100
plot_errbar(x=1:100, rnorm(100, 1, 2),
xlab="axe x", ylab="axe y", bty="n", xlim=c(1,100),
x.minus=x-2, x.plus=x+2)
x <- 1:100
plot_errbar(x=1:100, rnorm(100, 1, 2),
xlab="axe x", ylab="axe y", bty="n",
pch=21, bg="white",
x.minus=x-10, x.plus=x+10)
x <- (1:200)/10
y <- sin(x)
plot_errbar(x=x, y=y, xlab="axe x", ylab="axe y", bty="n", xlim=c(1,20),
y.minus=y-1, y.plus=y+1, ylim=c(-3, 3), type="l",
errbar.y.polygon=TRUE,
errbar.y.polygon.list=list(border=NA, col=rgb(0, 0, 0, 0.5)))
}
Run the code above in your browser using DataLab