correcting for the behaviour of is.na in if statement

HISKP-LQCD · Oct 3, 2019 · 81db664 · kostrzewa · Oct 3, 2019 · martin-ueding
1 parent 17c3058
commit 81db664
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/cf.R b/R/cf.R
@@ -751,15 +751,15 @@ addStat.cf <- function(cf1, cf2,reverse1=FALSE, reverse2=FALSE) {
   icf1_temp <- cf1$icf
   if (reverse1 == TRUE){
     apply(cf1_temp,2,rev)
-    if (!is.na(icf1_temp)){
+    if (sum(is.na(icf1_temp))==0){
       apply(icf1_temp,2,rev)
     }
   }
   cf2_temp <- cf2$cf
   icf2_temp <- cf2$icf
   if (reverse2 == TRUE){
     apply(cf2_temp,2,rev)
-    if (!is.na(icf2_temp)){
+    if (sum(is.na(icf2_temp))==0){
       apply(icf2_temp,2,rev)
     }
   }