Data più vicina in un vettore a una data data

Question

Vorrei identificare la data più vicina in un vettore di una determinata data. Diciamo che ho il seguente data di vettore (con 5 date casuali):

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

Ora, voglio trovare la data più vicina alla x = as.Date("2013-10-01") all'interno di questo vettore.

Ecco il mio codice:

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

Il risultato dovrebbe essere 4, dal momento che la data di "2013-09-12" è il più vicino. Ma, ho 1 ... Cosa c'è che non va nel mio codice?

Answer 1

manchi un abs di prendersi cura di valori negativi:

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

Answer 2

Vedi anche la funzione which.min:

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

Answer 3

La funzione which.closest() dal pacchetto birk è una semplice opzione.

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