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

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

Author: jarioksa
Date: 2013-11-25 07:30:43 +0100 (Mon, 25 Nov 2013)
New Revision: 2756

Modified:
   pkg/vegan/R/anova.ccalist.R
Log:
fix comparison for equality of numbers of observation

Modified: pkg/vegan/R/anova.ccalist.R
===================================================================
--- pkg/vegan/R/anova.ccalist.R	2013-11-24 16:39:04 UTC (rev 2755)
+++ pkg/vegan/R/anova.ccalist.R	2013-11-25 06:30:43 UTC (rev 2756)
@@ -19,7 +19,7 @@
         stop("response must be same in all models")
     ## 3. Same no. of observations
     N <- sapply(object, nobs)
-    if (!all(N = N[1]))
+    if (!all(N == N[1]))
         stop("number of observations must be same in all models")
     else
         N <- N[1]