Ближайшая дата в векторе к данной дате

Question

Я хотел бы определить ближайшую дату в векторе заданной даты. Скажем, у меня есть следующие даты вектор (с 5 случайных дат):

coldate= as.Date(c("2013-08-03", "2013-09-04", "2013-09-08", "2013-09-12", "2013-11-01")); 

Теперь я хочу, чтобы найти ближайший к дате x = as.Date("2013-10-01") внутри этого вектора.

Вот мой код:

> which((coldate-x) == min(coldate-x)) 
    [1] 1 

Результат должен быть 4, так как дата "2013-09-12" ближе всего. Но у меня 1 ... Что случилось в моем коде?

Answer 1

вы пропустите abs заботиться отрицательных значения:

which(abs(coldate-x) == min(abs(coldate - x))) 
[1] 4 

Answer 2

Смотрите также функции which.min:

R> which.min(abs(x-coldate)) 
[1] 4 

Answer 3

which.closest() функция из birk пакета является простым вариантом.

coldate= as.Date(c("2013-08-03", "2013-09-04", "2013-09-08", "2013-09-12", "2013-11-01")) 
x = as.Date("2013-10-01") 

which.closest(coldate, x) 
[1] 4