powered by
barploterrbar(y, yl, yh, barcol="orange", errcol="black", horiz=FALSE, w=0.2, ylim=c(0, max(yh)*1.05), ...)
barplot
y
yl
yh
y <- matrix(runif(80), ncol=5) ym <- apply(y, 2, mean) dy <- apply(y, 2, sd)*2/sqrt(nrow(y)) barploterrbar(ym, ym-dy, ym+dy, barcol="#0000c0", errcol="orange", ylim=c(0, max(ym+dy)))
Run the code above in your browser using DataLab