[Analogue-commits] r246 - pkg/R

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

Author: gsimpson
Date: 2011-11-04 17:26:15 +0100 (Fri, 04 Nov 2011)
New Revision: 246

Modified:
   pkg/R/rdaFit.R
Log:
minor clean-up in rdaFit

Modified: pkg/R/rdaFit.R
===================================================================
--- pkg/R/rdaFit.R	2011-11-04 16:24:13 UTC (rev 245)
+++ pkg/R/rdaFit.R	2011-11-04 16:26:15 UTC (rev 246)
@@ -6,7 +6,6 @@
     X <- data.matrix(X)
     NR <- nrow(X) - 1
     Xbar <- scale(X, center = TRUE, scale = scale)
-    ##SD <- sd(Xbar)
     SD <- sdFun(Xbar)
     if(scale)
         Xbar[is.nan(Xbar)] <- 0