[Analogue-commits] r220 - pkg/R

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

Author: gsimpson
Date: 2011-05-27 11:23:44 +0200 (Fri, 27 May 2011)
New Revision: 220

Modified:
   pkg/R/predict.wa.R
Log:
minor tweak might mean this runs faster, was growing an object in a loop

Modified: pkg/R/predict.wa.R
===================================================================
--- pkg/R/predict.wa.R	2011-05-27 09:22:39 UTC (rev 219)
+++ pkg/R/predict.wa.R	2011-05-27 09:23:44 UTC (rev 220)
@@ -37,7 +37,8 @@
         ## CV wanted
         if(identical(CV, "LOO")) {
             loo.pred <- matrix(0, ncol = n.train, nrow = n.fossil)
-            mod.pred <- length(n.train)
+            ##mod.pred <- length(n.train)
+            mod.pred <- numeric(n.train)
             ##useN2 <- object$options.tol$useN2
             want <- names(object$wa.optima) %in% colnames(newdata)
             want <- names(object$wa.optima)[want]