[Vegan-commits] r878 - branches/1.15/R

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

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

Modified:
   branches/1.15/R/betadisper.R
Log:
merge r877 (tidy) to 1.15 branch

Modified: branches/1.15/R/betadisper.R
===================================================================
--- branches/1.15/R/betadisper.R	2009-06-28 09:34:13 UTC (rev 877)
+++ branches/1.15/R/betadisper.R	2009-06-28 09:34:43 UTC (rev 878)
@@ -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