[Vegan-commits] r2859 - pkg/vegan/R

[noreply at r-forge.r-project.org]

Author: jarioksa
Date: 2014-02-21 11:31:22 +0100 (Fri, 21 Feb 2014)
New Revision: 2859

Modified:
   pkg/vegan/R/add1.cca.R
Log:
r2856 failed R CMD check

Modified: pkg/vegan/R/add1.cca.R
===================================================================
--- pkg/vegan/R/add1.cca.R	2014-02-21 07:22:30 UTC (rev 2858)
+++ pkg/vegan/R/add1.cca.R	2014-02-21 10:31:22 UTC (rev 2859)
@@ -33,7 +33,7 @@
         colnames(adds) <- colnames(tmp)[3:4]
         out <- cbind(out, adds)
         ## check for redundant (0 Df) terms
-        if (any(nas <- out[,1] < 1)) {
+        if (any(nas <- out[,1] < 1, na.rm = TRUE)) {
             out[[3]][nas] <- NA
             out[[4]][nas] <- NA
         }