[Pomp-commits] r288 - pkg/R

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

Author: kingaa
Date: 2010-08-03 22:42:25 +0200 (Tue, 03 Aug 2010)
New Revision: 288

Modified:
   pkg/R/nlf.R
Log:
- bug fix


Modified: pkg/R/nlf.R
===================================================================
--- pkg/R/nlf.R	2010-07-19 16:20:03 UTC (rev 287)
+++ pkg/R/nlf.R	2010-08-03 20:42:25 UTC (rev 288)
@@ -50,9 +50,9 @@
   dt.tol <- 1e-3
   times <- time(object,t0=TRUE)
   dt <- diff(times[-1])
-  dt <- times[3]-times[2]
   if (diff(range(dt))>dt.tol*mean(dt))
     stop(sQuote("nlf")," requires evenly spaced sampling times")
+  dt <- times[3]-times[2]
   
   t0 <- times[1]
                                         # Vector of times to output the simulation