[Vegan-commits] r471 - in pkg: R inst

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

Author: jarioksa
Date: 2008-08-12 10:49:10 +0200 (Tue, 12 Aug 2008)
New Revision: 471

Modified:
   pkg/R/plot.procrustes.R
   pkg/inst/ChangeLog
Log:
plot.procrustes: could fail if two solutions were *excatly* identical

Modified: pkg/R/plot.procrustes.R
===================================================================
--- pkg/R/plot.procrustes.R	2008-08-12 07:47:57 UTC (rev 470)
+++ pkg/R/plot.procrustes.R	2008-08-12 08:49:10 UTC (rev 471)
@@ -20,8 +20,8 @@
 	        abline(v = 0, lty = 2)
             abline(h = 0, lty = 2)
             if (ncol(x$rotation) == 2) {
-                ## Sometimes rotation[1,1] is 2.2e-16 above one
-                x$rotation[1,1] <- min(x$rotation[1,1], 1)
+                ## Sometimes rotation[1,1] is exactly 1 or 1+2.2e-16
+                x$rotation[1,1] <- min(x$rotation[1,1], 1 - .Machine$double.eps)
                 abline(0, tan(acos(x$rotation[1, 1])), lty = 1)
                 abline(0, 1/tan(acos(-x$rotation[1, 1])), lty = 1)
             }
@@ -59,4 +59,3 @@
     }
     invisible(out)
 }
-

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2008-08-12 07:47:57 UTC (rev 470)
+++ pkg/inst/ChangeLog	2008-08-12 08:49:10 UTC (rev 471)
@@ -1,3 +1,4 @@
+
 $Date$
 
 VEGAN DEVEL VERSIONS at http://r-forge.r-project.org/
@@ -4,13 +5,19 @@
 
 Version 1.14-9 (open August 10, 2008)
 
-    * adipart: new function to perform additive diversity partitioning
-    with corresponding S3 methods.
-    * tsallis: new function to calculate Tsallis-entropy,
-    a scalable diversity index family 
+	* adipart: new function to perform additive diversity partitioning
+	with corresponding S3 methods.
+
+	* tsallis: new function to calculate Tsallis-entropy, a scalable
+	diversity index family
+
 	* treedive: new functions for estimating functional diversity
 	defined as the height of a dendrogram of species properties for a
 	site (Petchey & Gaston). Still very preliminary.
+
+	* plot.procrustes: could fail if two solutions were *exactly*
+	*exactly* identical (noticed by Peter Solymos with wcmdscale
+	example). 
 	
 Version 1.14-8 (closed August 10, 2008)
 
@@ -55,7 +62,6 @@
 
 Version 1.14-6 (closed July 5, 2008)
 
-
 	* permatswap (nestedness.c): translated Peter Solymos's
 	swapcount.R to C. This is still experimental code, and the user
 	interface is undocumented, except here: use method = "Cswap" in