lower <- c(
  6341.000, 6329.500, 6087.014, 5703.500,
  5451.000, 5340.500, 4821.996, 4709.000,
  4341.500, 4006.250, 1127.000, 705.500
)
upper <- c(
  6341.000, 6352.500, 6594.986, 6978.500,
  7231.000, 7341.500, 7860.004, 7973.000,
  8340.500, 8675.750, 11555.000, 11976.500
)
range <- c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 95, 98)
true_value <- 8062
bias_range(
  lower = lower, upper = upper,
  range = range, true_value = true_value
)
Run the code above in your browser using DataLab