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

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

Author: jarioksa
Date: 2011-05-30 14:47:40 +0200 (Mon, 30 May 2011)
New Revision: 1618

Modified:
   pkg/vegan/R/capscale.R
Log:
indentation

Modified: pkg/vegan/R/capscale.R
===================================================================
--- pkg/vegan/R/capscale.R	2011-05-30 12:43:32 UTC (rev 1617)
+++ pkg/vegan/R/capscale.R	2011-05-30 12:47:40 UTC (rev 1618)
@@ -99,14 +99,14 @@
         colnames(sol$CA$u) <- names(sol$CA$eig) <- colnames(sol$CA$v) <-
             paste("MDS", 1:ncol(sol$CA$u), sep = "")
     }
-        ## update for negative eigenvalues
-        poseig <- length(sol$CA$eig)
-        if (any(X$eig < 0)) {
-            negax <- X$eig[X$eig < 0]
-            sol$CA$imaginary.chi <- sum(negax)
-            sol$tot.chi <- sol$tot.chi + sol$CA$imaginary.chi
-            sol$CA$imaginary.rank <- length(negax)
-            sol$CA$imaginary.u.eig <- X$negaxes
+    ## update for negative eigenvalues
+    poseig <- length(sol$CA$eig)
+    if (any(X$eig < 0)) {
+        negax <- X$eig[X$eig < 0]
+        sol$CA$imaginary.chi <- sum(negax)
+        sol$tot.chi <- sol$tot.chi + sol$CA$imaginary.chi
+        sol$CA$imaginary.rank <- length(negax)
+        sol$CA$imaginary.u.eig <- X$negaxes
     }
     if (!is.null(comm)) {
         comm <- scale(comm, center = TRUE, scale = FALSE)