rowSums, но сохраняя значения NA
Я почти уверен, что это довольно просто, но, похоже, застрял ... У меня есть два вектора xts, которые были объединены вместе, которые содержат числовые значения и NA.
Я хотел бы получить rowSums для каждого периода индекса, но сохраняя значения NA.
Ниже приведен воспроизводимый пример
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
В вышеприведенном примере 10 августа 2013 года я надеялся, что он скажетNA
вместо0
то же самое относится ко 2-4 августа 2013 года.
Какие-нибудь предложения для изящного способа получить NA в соответствующих местах?