[Analogue-commits] r362 - in pkg: R inst

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

Author: gsimpson
Date: 2013-10-01 05:06:43 +0200 (Tue, 01 Oct 2013)
New Revision: 362

Modified:
   pkg/R/wa.R
   pkg/inst/ChangeLog
Log:
wa warns of species contain zero info

Modified: pkg/R/wa.R
===================================================================
--- pkg/R/wa.R	2013-09-30 16:19:05 UTC (rev 361)
+++ pkg/R/wa.R	2013-10-01 03:06:43 UTC (rev 362)
@@ -12,8 +12,10 @@
     x <- as.matrix(x)
     env <- as.numeric(env)
     ## drop species with no information
-    if(any(csum <- colSums(x) == 0))
+    if(any(csum <- colSums(x) == 0)) {
         x <- x[, !csum, drop = FALSE]
+        warning("Some species contained no data. These have been deleted.")
+    }
     if(missing(deshrink))
         deshrink <- "inverse"
     deshrink <- match.arg(deshrink)

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2013-09-30 16:19:05 UTC (rev 361)
+++ pkg/inst/ChangeLog	2013-10-01 03:06:43 UTC (rev 362)
@@ -55,6 +55,9 @@
 
 	* plot.sppResponse: accepts a logical vector for argument `which`.
 
+	* wa: now warns if species with no information are removed from
+	the analysis, which proceeds as it always has.
+
 Version 0.11-3
 
 	* chooseTaxa: new argument `value` controls whether the data for