R/error.bars.R

In kevinarbuckle/windex: Analysing Convergent Evolution using the Wheatsheaf Index

Defines functions error.bars

Documented in error.bars

error.bars<-function(x,y,upper,lower=upper,length=0.1,...){
if(length(x)!=length(y)|length(y)!=length(lower)|length(lower)!=length(upper))
stop("vectors must be same length")
arrows(x,y+upper,x,y-lower,angle=90,code=3,length=length, ...)
}