[Vegan-commits] r697 - pkg/vegan/src

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

Author: jarioksa
Date: 2009-02-24 10:48:11 +0100 (Tue, 24 Feb 2009)
New Revision: 697

Modified:
   pkg/vegan/src/nestedness.c
Log:
nestedness: removing redundant code and tests

Modified: pkg/vegan/src/nestedness.c
===================================================================
--- pkg/vegan/src/nestedness.c	2009-02-24 09:44:48 UTC (rev 696)
+++ pkg/vegan/src/nestedness.c	2009-02-24 09:48:11 UTC (rev 697)
@@ -361,8 +361,7 @@
             m[ij[3]] = sm[2];
         }
         /* fixed row sums */
-        if (*direct == 1) {
-        for (k = 0; k < 4; k++)
+        else {
             m[ij[0]] = sm[2];
             m[ij[1]] = sm[3];
             m[ij[2]] = sm[0];