# basic
set.seed(8)
x <- runif(10) * 10
Closest(x, 3.1)
sort(x)
y <- sample(10, size=10, replace=TRUE)
# multiple observations of the same closest value
Closest(y, a=6)
# get the relevant positions
Closest(y, a=6, which=TRUE)
# two different values having the same distance
Closest(c(2, 3, 4, 5), a=3.5)
# vectorize "a"
Closest(c(2, 3, 4, 5), a=c(3.1, 3.9))
# vectorize "which"
Closest(c(2, 3, 4, 5), a=3.1, which=c(FALSE, TRUE))
# vectorize both
Closest(c(2, 3, 4, 5), a=c(3.1, 3.9), which=c(FALSE, TRUE))
Run the code above in your browser using DataLab