From ec574cff822a1238138c0aa69b3d1459bdc3dfa8 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 19 Jun 2015 17:46:11 +0200
Subject: Use odeintr instead of ccSolve for compiling models

---
 R/endpoints.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/endpoints.R')

diff --git a/R/endpoints.R b/R/endpoints.R
index ae9aa3ec..001595bc 100644
--- a/R/endpoints.R
+++ b/R/endpoints.R
@@ -50,7 +50,7 @@ endpoints <- function(fit) {
       ep$distimes[obs_var, c("DT50back")] = DT50_back
     }
     if (type == "IORE") {
-      k_names = grep(paste("k.iore", obs_var, sep="_"), names(parms.all), value=TRUE)
+      k_names = grep(paste("k__iore", obs_var, sep="_"), names(parms.all), value=TRUE)
       k_tot = sum(parms.all[k_names])
       # From the NAFTA kinetics guidance, p. 5
       n = parms.all[paste("N", obs_var, sep = "_")]
-- 
cgit v1.2.1