Najbliższa data w wektorze do podanej daty

Question

Chciałbym wskazać najbliższą datę w wektorze podanej daty. Powiedzmy mam datę następującą wektor (z 5 losowych terminach):

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

Teraz chcę znaleźć najbliższy termin do x = as.Date("2013-10-01") wewnątrz tego wektora.

Oto mój kod:

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

Wynik powinien być 4, ponieważ data "2013-09-12" jest najbliżej. Ale mam 1 ... Co jest nie tak w moim kodzie?

Answer 1

przegapisz abs zadbać o wartości ujemne:

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

Answer 2

Zobacz także funkcję which.min:

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

Answer 3

which.closest() funkcji z pakietu birk jest prostym rozwiązaniem.

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