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

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

Author: jarioksa
Date: 2013-03-05 10:01:17 +0100 (Tue, 05 Mar 2013)
New Revision: 2468

Modified:
   pkg/vegan/R/tabasco.R
Log:
tabasco cannot handle negative data

Modified: pkg/vegan/R/tabasco.R
===================================================================
--- pkg/vegan/R/tabasco.R	2013-03-04 18:33:14 UTC (rev 2467)
+++ pkg/vegan/R/tabasco.R	2013-03-05 09:01:17 UTC (rev 2468)
@@ -8,6 +8,8 @@
     function (x, use, sp.ind = NULL, site.ind = NULL,  
               select, Rowv = TRUE, Colv = TRUE, ...) 
 {
+    if (any(x < 0))
+        stop("function cannot be used with negative data values")
     pltree <- sptree <- NA
     if (!missing(use)) {
         if (!is.list(use) && is.vector(use)) {