[Vegan-commits] r1003 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2009-09-11 13:59:34 +0200 (Fri, 11 Sep 2009)
New Revision: 1003

Modified:
   pkg/vegan/R/wcmdscale.R
   pkg/vegan/inst/ChangeLog
Log:
wcmdscale: non-finite point scores will be NA

Modified: pkg/vegan/R/wcmdscale.R
===================================================================
--- pkg/vegan/R/wcmdscale.R	2009-09-11 07:16:53 UTC (rev 1002)
+++ pkg/vegan/R/wcmdscale.R	2009-09-11 11:59:34 UTC (rev 1003)
@@ -40,6 +40,7 @@
             negaxes <- points[, e$values < 0, drop = FALSE]
     }
     points <- points[, 1:k, drop=FALSE]
+    points[!is.finite(points)] <- NA
     if (eig || x.ret || add) {
         out <- list(points = points, eig = if (eig) e$values,
                     x = if (x.ret) m, ac = NA, GOF = NA, weights = w,

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-09-11 07:16:53 UTC (rev 1002)
+++ pkg/vegan/inst/ChangeLog	2009-09-11 11:59:34 UTC (rev 1003)
@@ -4,6 +4,9 @@
 
 Version 1.16-28 (opened September 10, 200)
 
+	* wcmdscale: scores (points) with zero weights (w = 0) and other
+	non-finite entries will be NA.
+
 	* capscale: implemented na.action. The WA scores are always NA for
 	missing observations in capscale.