[Pomp-commits] r831 - pkg/pomp/R

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

Author: kingaa
Date: 2013-03-10 21:49:19 +0100 (Sun, 10 Mar 2013)
New Revision: 831

Modified:
   pkg/pomp/R/mif.R
Log:
- throw error in 'mif' when cooling.fraction=1 and method='mif2'


Modified: pkg/pomp/R/mif.R
===================================================================
--- pkg/pomp/R/mif.R	2013-02-28 05:48:56 UTC (rev 830)
+++ pkg/pomp/R/mif.R	2013-03-10 20:49:19 UTC (rev 831)
@@ -34,6 +34,13 @@
            }
          },
          hyperbolic={
+           if (fraction>=1)
+             stop(
+                  "mif error: ",sQuote("cooling.fraction"),
+                  " must be < 1 when cooling.type = ",
+                  sQuote("hyperbolic")
+                  call.=FALSE
+                  )
            if (perobs) {
              scal <- (50*ntimes*fraction-1)/(1-fraction)
              function (nt, m) {