powered by
Closest(x, a, na.rm = FALSE)
which
set.seed(8) x <- sample(10, size=10, replace=TRUE) Closest(x, 6)
Run the code above in your browser using DataLab