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

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

Author: jarioksa
Date: 2009-03-08 08:21:28 +0100 (Sun, 08 Mar 2009)
New Revision: 730

Modified:
   pkg/vegan/R/metaMDSrotate.R
Log:
typo in error message

Modified: pkg/vegan/R/metaMDSrotate.R
===================================================================
--- pkg/vegan/R/metaMDSrotate.R	2009-03-07 21:14:01 UTC (rev 729)
+++ pkg/vegan/R/metaMDSrotate.R	2009-03-08 07:21:28 UTC (rev 730)
@@ -1,6 +1,6 @@
 ### Rotates metaMDS result so that axis one is parallel to vector 'x'
 `metaMDSrotate` <-
-function(object, vec, choices = 1:2, ...) 
+    function(object, vec, choices = 1:2, ...) 
 {
     if (!inherits(object, "metaMDS"))
         stop("function works only with 'metaMDS' results")
@@ -8,7 +8,7 @@
         stop("function can be only used with 2dim plots")
     vec <- drop(vec)
     if (length(dim(vec)) > 1)
-        stop("function can be only with one dimensional 'x'")
+        stop("function works only with univariate 'x'")
     ## envfit finds the direction cosine
     rot <- envfit(object, vec, choices = choices, ...)$vectors$arrows
     rot <- drop(rot)