Extrahieren von Daten aus xts-Objekt basierend auf vaule

Möchte ich extrahieren Sie die Daten eines xts-Objekt, in dem eine änderung in dem Wert angezeigt wird, d.h. die Daten, an denen der Wert von A ändert sich von einem auf null oder von null auf eins:

require(xts)
A <- xts(c(1,1,0,0,1,1,0,0,1,1), Sys.Date()-10:1)
colnames(A) <- c("A")

> A
           A
2014-12-27 1
2014-12-28 1
2014-12-29 0
2014-12-30 0
2014-12-31 1
2015-01-01 1
2015-01-02 0
2015-01-03 0
2015-01-04 1
2015-01-05 1

Dem gewünschten Ergebnis Sieht wie folgt aus

> from.one.to.zero
[1] "2014-12-29" "2015-01-02"

> from.zero.to.one
[1] "2014-12-31" "2015-01-04"
InformationsquelleAutor Pat | 2015-01-06
  1. 7

    Könnten Sie versuchen,

    index(A[diff(A)<0])
#[1] "2014-12-31" "2015-01-04"

index(A[diff(A)==1])
#[1] "2014-12-29" "2015-01-02"
    InformationsquelleAutor akrun
Schreibe einen Kommentar