# NOT RUN {
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
quantile_bias(lower = lower, upper = upper,
range = range, true_value = true_value)
# }
Run the code above in your browser using DataLab