x <- floor(runif(10, min = 0, max = 100))
x
range(x)
# Coefficent of range
(max(x) - min(x)) / (max(x) + min(x))