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

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

Author: jarioksa
Date: 2014-08-25 12:34:01 +0200 (Mon, 25 Aug 2014)
New Revision: 2876

Modified:
   pkg/vegan/R/nestednodf.R
Log:
Merge pull request #23 from mattbarbour34/master

changed >= to > in N.paired.rows and cols calc.

Modified: pkg/vegan/R/nestednodf.R
===================================================================
--- pkg/vegan/R/nestednodf.R	2014-08-19 03:11:48 UTC (rev 2875)
+++ pkg/vegan/R/nestednodf.R	2014-08-25 10:34:01 UTC (rev 2876)
@@ -35,7 +35,7 @@
             if (weighted) {
                 second <- comm[j, ]
                 N.paired.rows[counter] <-
-                    sum(first - second >= 0 & second > 0)/sum(second > 0)
+                    sum(first - second > 0 & second > 0)/sum(second > 0)
             }
             else {
                 N.paired.rows[counter] <-
@@ -53,7 +53,7 @@
             if (weighted) {
                 second <- comm[, j]
                 N.paired.cols[counter] <-
-                    sum(first - second >= 0 & second > 0)/sum(second > 0)
+                    sum(first - second > 0 & second > 0)/sum(second > 0)
             }
             else {
                 N.paired.cols[counter] <-