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 anstatt0Gleiches gilt für den 2. bis 4. August 2013.

Irgendwelche Vorschläge für eine elegante Art, NAs an den relevanten Stellen zu bekommen?