[Dplr-commits] r689 - branches/redfit/R

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

Author: mvkorpel
Date: 2013-09-12 18:46:53 +0200 (Thu, 12 Sep 2013)
New Revision: 689

Modified:
   branches/redfit/R/redfit.R
Log:
Reverted accidental change in previous commit


Modified: branches/redfit/R/redfit.R
===================================================================
--- branches/redfit/R/redfit.R	2013-09-12 16:37:03 UTC (rev 688)
+++ branches/redfit/R/redfit.R	2013-09-12 16:46:53 UTC (rev 689)
@@ -229,7 +229,7 @@
         ww[, i] <- redfitWinwgt(twk, iwin2)
     }
     ## determine autospectrum of input data
-    lmfitfun <- tryCatch(match.fun("lm.fit"),
+    lmfitfun <- tryCatch(match.fun(".lm.fit"),
                          error = function(...) match.fun("lm.fit"))
     gxx <- .Call(dplR.spectr, t2, x2, np, ww, tr[[1]], tr[[2]], tr[[3]],
                  nseg, nfreq, avgdt, freq, dn50, segskip, lmfitfun)