rowSums behält aber NA-Werte bei
Ich bin mir ziemlich sicher, dass dies recht einfach ist, aber anscheinend stecken geblieben ist ... Ich habe zwei xts-Vektoren, die zusammengeführt wurden und numerische Werte und NAs enthalten.
Ich möchte die Zeilensummen für jeden Indexzeitraum erhalten, aber die NA-Werte beibehalten.
Unten sehen Sie ein reproduzierbares Beispiel
set.seed(120)
dd <- xts(rnorm(100),Sys.Date()-c(100:1))
dd1 <- ifelse(dd<(-0.5),dd*-1,NA)
dd2 <- ifelse((dd^2)>0.5,dd,NA)
mm <- merge(dd1,dd2)
mm$m <- rowSums(mm,na.rm=TRUE)
tail(mm,10)
dd1 dd2 m
2013-08-02 NA NA 0.000000
2013-08-03 NA NA 0.000000
2013-08-04 NA NA 0.000000
2013-08-05 1.2542692 -1.2542692 0.000000
2013-08-06 NA 1.3325804 1.332580
2013-08-07 NA 0.7726740 0.772674
2013-08-08 0.8158402 -0.8158402 0.000000
2013-08-09 NA 1.2292919 1.229292
2013-08-10 NA NA 0.000000
2013-08-11 NA 0.9334900 0.933490
Im obigen Beispiel am 10. August 2013 hatte ich gehofft, es würde heißenNA
anstatt0
Gleiches gilt für den 2. bis 4. August 2013.
Irgendwelche Vorschläge für eine elegante Art, NAs an den relevanten Stellen zu bekommen?