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

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

Author: gsimpson
Date: 2009-06-28 11:34:13 +0200 (Sun, 28 Jun 2009)
New Revision: 877

Modified:
   pkg/vegan/R/betadisper.R
Log:
Tidy up betadisper following r875

Modified: pkg/vegan/R/betadisper.R
===================================================================
--- pkg/vegan/R/betadisper.R	2009-06-28 09:32:35 UTC (rev 876)
+++ pkg/vegan/R/betadisper.R	2009-06-28 09:34:13 UTC (rev 877)
@@ -45,7 +45,6 @@
     eig <- e$values
     ## Remove zero eigenvalues
     eig <- eig[(want <- abs(eig/eig[1]) > TOL)]
-    ##rs <- seq_along(eig)
     ## scale Eigenvectors
     vectors <- vectors[, want, drop = FALSE] %*% diag(sqrt(abs(eig)))
     ## store which are the positive eigenvalues