powered by
barploterrbar(y, yl, yh, barcol="orange", errcol="black", horiz=FALSE, w=0.2,theCut=NULL,columnForDiffBars=TRUE,cex.axis = par("cex.axis"),zeroForNA=TRUE,legend=FALSE,groups = NULL, order=FALSE, ...)
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")
Run the code above in your browser using DataLab