R erstellen von XTS-Objekt unter Verwendung der Zeit-string

Ich möchte erstellen Sie eine xts Objekt, anhand der folgenden Daten-frame. Ich verstehe da dies eine Kombination von Faktoren und Kombination der numerischen Werte, die Sie nicht in einem einzigen xts Objekt. Ich bin froh, erstellen Sie separate Objekte mit Gruppierung erfolgt nur nach Zeit (ok, zu verlassen, dem Datum für den moment).

date       extime   sym price size notional   ex          
1 2014-06-30 08:00:05.330 RRS.L  4895    2     9790 XLON 
2 2014-06-30 08:00:09.101 RRS.L  4893   23   112539 XLON 
3 2014-06-30 08:00:10.257 RRS.L  4893  119   582267 XLON 
4 2014-06-30 08:00:12.575 RRS.L  4892  128   626176 XLON

xts(testData$price, sapply(testData$extime, function(df) as.POSIXct((getNumericTim(df)   +0.1)/1000, origin = "2014-06-30"),simplify=FALSE))
    # Error in xts(testData$price, sapply(testData$extime, function(df) as.POSIXct((getNumericTime(df) +  : 
    # order.by requires an appropriate time-based object

getNumericTime
function (x){
options(digits.secs=3)
data <- strptime(x,format="%H:%M:%OS")
hr <- as.numeric(strftime(data,"%H"))
mins <- as.numeric(strftime(data,"%M"))
secs <- as.numeric(strftime(data,"%OS"))
(((hr*(60)+mins)*60)+secs)*1000 
}

Ich weiß, die sapply rufen Sie zurück POSIXct Objekt

sapply(testData$extime,function(df)as.POSIXct((getNumericTime(df)+0.1)/1000, origin = "2014-06-30"),simplify=FALSE)

[[1]]
[1] "2014-06-30 09:00:05.330 BST"

[[2]]
[1] "2014-06-30 09:00:09.101 BST"

[[3]]
[1] "2014-06-30 09:00:10.257 BST"

[[4]]
[1] "2014-06-30 09:00:12.575 BST"

Etwas falsch mit meinem xts Objekt erstellen ?

  • Die sapply rufen nicht zurück, wird ein POSIXct Objekt. Es gibt eine Liste von POSIXct Objekte.
InformationsquelleAutor user3840089 | 2014-07-15
Schreibe einen Kommentar