[Analogue-commits] r382 - pkg/R

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

Author: gsimpson
Date: 2013-10-09 04:49:41 +0200 (Wed, 09 Oct 2013)
New Revision: 382

Modified:
   pkg/R/predict.pcr.R
Log:
fix typo in object name

Modified: pkg/R/predict.pcr.R
===================================================================
--- pkg/R/predict.pcr.R	2013-10-09 02:42:44 UTC (rev 381)
+++ pkg/R/predict.pcr.R	2013-10-09 02:49:41 UTC (rev 382)
@@ -17,7 +17,7 @@
         want <- spp.names[want]
         newdata <- newdata[, want, drop = FALSE]
         ## apply transformation to newdata
-        newdata <- obj$tranFun(newdata)
+        newdata <- object$tranFun(newdata)
         ## do predictions
         ## matrix of predictions
         pred <- matrix(ncol = length(ncomp), nrow = Np)