[Analogue-commits] r395 - pkg/R

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

Author: gsimpson
Date: 2013-12-16 19:55:09 +0100 (Mon, 16 Dec 2013)
New Revision: 395

Modified:
   pkg/R/predict.pcr.R
Log:
remove the use of analogue:::; hangover from development

Modified: pkg/R/predict.pcr.R
===================================================================
--- pkg/R/predict.pcr.R	2013-12-14 02:28:57 UTC (rev 394)
+++ pkg/R/predict.pcr.R	2013-12-16 18:55:09 UTC (rev 395)
@@ -170,7 +170,7 @@
     X <- sweep(X, 2, Xbar, "-")
     Y <- Y[take] - ybar
     ## fit model to subset
-    FIT <- analogue:::fitPCR(X = X, Y = Y, ncomp = ncomp, n = N, m = M)
+    FIT <- fitPCR(X = X, Y = Y, ncomp = ncomp, n = N, m = M)
     for(j in comps) {
         B0 <- ybar - Xbar %*% FIT$B[, j]
         parray[ , j] <- Xnew %*% FIT$B[, j] + rep(B0, Nnew)