[Pomp-commits] r393 - pkg/R

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

Author: kingaa
Date: 2010-10-21 14:51:21 +0200 (Thu, 21 Oct 2010)
New Revision: 393

Modified:
   pkg/R/probe-match.R
Log:

- bug fix


Modified: pkg/R/probe-match.R
===================================================================
--- pkg/R/probe-match.R	2010-10-20 20:42:57 UTC (rev 392)
+++ pkg/R/probe-match.R	2010-10-21 12:51:21 UTC (rev 393)
@@ -134,18 +134,18 @@
   datval <- .Call(apply_probe_data,object,probes) # apply probes to data
   
   if (eval.only) {
-    val <- obj.fun(
-                   par=guess,
-                   est=par.index,
-                   object=object,
-                   probes=probes,
-                   params=params,
-                   nsim=nsim,
-                   seed=seed,
-                   weights=weights,
-                   datval=datval,
-                   fail.value=fail.value
-                   )
+    val <- obj.fn(
+                  par=guess,
+                  est=par.index,
+                  object=object,
+                  probes=probes,
+                  params=params,
+                  nsim=nsim,
+                  seed=seed,
+                  weights=weights,
+                  datval=datval,
+                  fail.value=fail.value
+                  )
     conv <- 0
     evals <- as.integer(c(1,0))
     msg <- paste("no optimization performed")