Ich habe einen Datensatz von Zeit/Wert, z.Konvertieren XY-Datensatz in Array
> df <- data.frame(time=c(1,4,5,6), speed=c(100, 500, 600, 800))
Ich möchte es auf ein Array mit einem Element pro Zeit Zecke konvertieren:
> some_func(df, speed ~ time, step=1)
[1] 100 100 100 500 600 800
feststellen, dass eine Werte für Zeit == 2 und 3 hinzugefügt wurden.
Dann kann ich es in der Kreuzkorrelationsfunktion verwenden.
Dies wird die gewünschten Werte zurückgeben.
df$speed[rep(seq_len(nrow(df)), c(diff(df$time), 1))]
[1] 100 100 100 500 600 800
Hier verwenden wir rep zusammen mit einem Vektor Argumente an das zweite Argument für df$speed die Indizes des gewünschten Vektor zurückzukehren. Wir erreichen dies mit diff, die die Lücken der Zeitspanne berechnen und 1 am Ende anhängen, um den endgültigen Wert zurückzugeben.
Dank. Es kann entwickelt werden, um zu tun, was ich brauche. A.o. Behandlung der Dezimal-Zeit und der Auflösung von Sekunden. –
Eine Möglichkeit besteht darin, die Schrittfunktion zu interpolieren, wie Sie dies in Ihrem obigen Beispiel wollten.
sf<-stepfun(df$time,c(df$speed[1],df$speed))
sf(1:6)
Leider funktioniert das nicht mit der ccf-Funktion und das ist was ich brauche. Gibt es eine Möglichkeit, es in einen Vektor zu konvertieren? –
Das ausgewertete Objekt sf (1: 6) ist ein numerischer Vektor. ccf (sf (1: 6), sf (2: 7)) funktioniert daher. – alex2006
Danke. Das macht den Trick. –
nicht die gleichen Werte, sondern eine lineare Annäherung würde von 'ca. (df $ Zeit, df $ Geschwindigkeit, n = 6) zurückgeführt wird' dass füllt in einem linearen Interpolation für Zeiten 2 und 3 – lmo