From a69bf39427ff4f93eebdc8bceacb8174ff13c085 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 14 Jul 2014 19:07:54 +0200
Subject: Nearly complete support for IORE, pending mkinerrmin

---
 R/mkinpredict.R | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'R/mkinpredict.R')

diff --git a/R/mkinpredict.R b/R/mkinpredict.R
index 43b5d2f3..da013d50 100644
--- a/R/mkinpredict.R
+++ b/R/mkinpredict.R
@@ -109,6 +109,10 @@ mkinpredict <- function(mkinmod, odeparms, odeini,
       rtol = rtol,
       ...
     )
+    if (sum(is.na(out)) > 0) {
+      stop("Differential equations were not integrated for all output times because\n",
+	   "NaN values occurred in output from ode()")
+      }
   }
   if (map_output) {
     # Output transformation for models with unobserved compartments like SFORB
-- 
cgit v1.2.1