R/errorbars.R

In SwampThingPaul/AnalystHelper: Helper functions developed over the years to extract and format data

#' Errorbars to be used with base plotting
#'
#'@param x x value
#'@param Mean mean value or y alternative
#'@param SE standard error
#'@param col color of bars
#'@param lty Line type The line type. Line types can either be specified as an integer (0=blank, 1=solid (default), 2=dashed, 3=dotted, 4=dotdash, 5=longdash, 6=twodash) or as one of the character strings "blank", "solid", "dashed", "dotted", "dotdash", "longdash", or "twodash", where "blank" uses ‘invisible lines’ (i.e., does not draw them).
#'@param length length of the edges of the error bar head (in inches).
#'@param lwd line width
#'@keywords error
#'@export
#'@return draws lines in the form of error bars
#'@note  see arrows() function
#'@examples
#'x.val=c(1,2,3)
#'mean.val=c(2,5,7)
#'se.val=c(0.1,0.5,1)
#'plot(mean.val~x.val,ylim=c(0,10))
#'errorbars(x.val,mean.val,se.val,"red")

errorbars=function(x,Mean,SE,col,lty=1,length=0.07,lwd=1){
  lower=Mean-SE
  upper=Mean+SE
  arrows(x,lower,x,upper,col=col,lty=lty,length=length,angle=90,code=3,lwd=lwd);
  options(warn=-1)
}