cfirt/errorbars.r at master · IEDMS/cfirt · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
##### based on http://monkeysuncle.stanford.edu/?p=485

error.bar <- function(x, y, upper, lower=upper, length=0.05,...){
       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, ...)
      }

yerror.bar <- function(x, y, upper, lower=upper, length=0.05,...){
       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, ...)
      }

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


##########################
##### END FUNCTIONS ######
##########################