# Check if all values are sufficiently different
x <- runif(10) # 10 random values between 0 and 1
all_different(x, tol = 0.01)
all_different(x, tol = 0.5)
# Add sufficiently different candidate values
starting_values <- c(0.1, 0.5, 0.9)
candidates <- c(0.15, 0.4, 0.8, 1.2)
values_different(starting_values, candidates, tol = 0.2)
Run the code above in your browser using DataLab