# ways to work:
comp_err(.10, .200, .300) # => err = 0.71
comp_err(.50, .333, .666) # => err = 0.5005
# watch out for vectors:
prev.range <- seq(0, 1, by = .1)
comp_err(prev.range, .5, .5) # => 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5
# watch out for extreme values:
comp_err(1, 1, 1) # => 0
comp_err(1, 1, 0) # => 0
comp_err(1, 0, 1) # => 1
comp_err(1, 0, 0) # => 1
comp_err(0, 1, 1) # => 0
comp_err(0, 1, 0) # => 1
comp_err(0, 0, 1) # => 0
comp_err(0, 0, 0) # => 1
Run the code above in your browser using DataLab