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

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

Author: jarioksa
Date: 2011-03-07 06:29:18 +0100 (Mon, 07 Mar 2011)
New Revision: 1523

Modified:
   pkg/vegan/R/rrarefy.R
Log:
fix an if

Modified: pkg/vegan/R/rrarefy.R
===================================================================
--- pkg/vegan/R/rrarefy.R	2011-03-06 09:03:07 UTC (rev 1522)
+++ pkg/vegan/R/rrarefy.R	2011-03-07 05:29:18 UTC (rev 1523)
@@ -31,7 +31,7 @@
         sample <- min(sample, J)
         1 - exp(lchoose(J - x, sample) - lchoose(J, sample))
     }
-    if (length(dim(x) > 1))
+    if (length(dim(x)) > 1)
         t(apply(x, 1, dfun, sample = sample))
     else
         dfun(x, sample)