У меня есть вектор чисел
f <- c(1, 3, 5, 8, 10, 12, 19, 27)
Я хочу сравнить значения в векторе с другим числом и найти ближайшее меньшее значение.
Например, если введено число 18, то ближайшее меньшее значение в векторе будет 12 (позиция 6 в векторе). Если на входе 19, то результатом должно быть значение 19, то есть индекс 7.
Я думаю, что ответ довольно прост:
f <- c(1,3,6,8,10,12,19,27)
x <- 18
# find the value that is closest to x
maxless <- max(f[f <= x])
# find out which value that is
which(f == maxless)
Если ваш вектор f всегда отсортирован, вы можете сделать sum(f <= x)
f <- c(1,3,6,8,10,12,19,27)
x <- 18
sum(f <= x)
# [1] 6
x <- 19
sum(f <= x)
# [1] 7
Попробуйте это (не идеальное решение)
x<-c(1,3,6,8,10,12,19,27)
showIndex<-function(x,input){
abs.diff<-abs(x-input)
index.value<-unique(ifelse(abs.diff==0,which.min(abs.diff),which.min(abs.diff)-1))
return(index.value)
}
showIndex(x,12)
[1] 6
showIndex(x,19)
[1] 7
which.min(abs(x-18)) дает вам индекс. Я не понимаю, о чем вы спрашиваете. 19.05.2015 Вы можете попробовать:
x <- 18
f <- c(1,3,6,8,10,12,19,27)
ifelse(x %in% f, which(f %in% x), which.min(abs(f - x)) - 1)
Таким образом, если x не находится в f, он вернет ближайший предыдущий индекс. Если x находится в f, он вернет x index.
Другой:
which.min(abs(18 - replace(f, f>18, Inf)))
#[1] 6
f[which.min(abs(18 - replace(f, f>18, Inf)))]
#[1] 12
Или как функция:
minsmaller <- function(x,value) which.min(abs(value - replace(x, x>value, Inf)))
minsmaller(f, 18)
#[1] 6
minsmaller(f, 19)
#[1] 7
Есть findInterval:
findInterval(18:19, f)
#[1] 6 7
И построим более конкретную функцию:
ff = function(x, table)
{
ot = order(table)
ans = findInterval(x, table[ot])
ot[ifelse(ans == 0, NA, ans)]
}
set.seed(007); sf = sample(f)
sf
#[1] 27 6 1 12 10 19 8 3
ff(c(0, 1, 18, 19, 28), sf)
#[1] NA 3 4 6 1
В стиле функционального программирования:
f <- c(1, 3, 6, 8, 10, 12, 19, 27)
x <- 18
Position(function(fi) fi <= x, f, right = TRUE)
