diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-06-19 17:46:11 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-06-19 17:46:11 +0200 |
| commit | ec574cff822a1238138c0aa69b3d1459bdc3dfa8 (patch) | |
| tree | ed35e64ca0a2e51b0974e7fa3efd768aa5bc446a /R/endpoints.R | |
| parent | 6281424beafe531c9891670c3227ab12e9a21990 (diff) | |
Use odeintr instead of ccSolve for compiling modelsodeintr
Diffstat (limited to 'R/endpoints.R')
| -rw-r--r-- | R/endpoints.R | 2 |
1 files changed, 1 insertions, 1 deletions
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 = "_")]
|