Estoy bastante seguro de que esto es bastante simple, pero parece que se ha atascado ... Tengo dos vectores xts que se han fusionado, que contienen valores numéricos y NA.

Me gustaría obtener las RowSums para cada período de índice, pero manteniendo los valores de NA.

A continuación se muestra un ejemplo reproducible.

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

En el ejemplo anterior, el 10 de agosto de 2013, esperaba que dijeraNA en lugar de0, lo mismo ocurre para los días 2 y 4 de agosto de 2013.

¿Alguna sugerencia para una forma elegante de obtener NA en los lugares relevantes?