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

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

Author: jarioksa
Date: 2013-02-13 18:03:01 +0100 (Wed, 13 Feb 2013)
New Revision: 2436

Modified:
   pkg/vegan/R/tabasco.R
Log:
put tabasco origin to the upper left corner instead of lowerleft

Modified: pkg/vegan/R/tabasco.R
===================================================================
--- pkg/vegan/R/tabasco.R	2013-02-13 16:52:34 UTC (rev 2435)
+++ pkg/vegan/R/tabasco.R	2013-02-13 17:03:01 UTC (rev 2436)
@@ -60,6 +60,8 @@
         sp.ind <- seq_len(ncol(x))
         names(sp.ind) <- colnames(x)
         sp.ind <- sp.ind[labels(Rowv)]
+        ## reverse: origin in the upper left corner
+        Rowv <- rev(Rowv)
     }
     if (!is.null(sp.ind) && is.logical(sp.ind))
         sp.ind <- (1:ncol(x))[sp.ind]
@@ -90,7 +92,8 @@
     else
         rind <- sort(site.ind)
     if (is.na(Rowv[1]))
-        cind <- sp.ind
+        ## reverse: origin in the upper left corner
+        cind <- rev(sp.ind)
     else
         cind <- sort(sp.ind)
     ## we assume t() changes data.frame to a matrix