Nächstes Datum in einem Vektor zu einem bestimmten Datum

Question

Ich möchte das nächste Datum in einem Vektor eines bestimmten Datums identifizieren. Sagen wir, ich folgendes Datum Vektor haben (mit 5 Zufallsdaten):

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

Nun, ich das nächste Datum zu x = as.Date("2013-10-01") innerhalb dieses Vektors finden möchten.

Hier ist mein Code:

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

Das Ergebnis sollte 4 sein, da das Datum "2013-09-12" in der Nähe ist. Aber, ich habe 1 ... Was ist falsch in meinem Code?

Answer 1

Sie vermissen ein abs zu kümmern negative Werte:

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

Answer 2

Siehe auch die which.min Funktion:

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

Answer 3

Die which.closest() Funktion aus dem birk Paket ist eine einfache Option.

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