diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-04-16 12:12:20 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-04-16 12:12:20 +0200 |
| commit | f2a03cedb1a5f239185ce6c4b3b4eff2fe3636bd (patch) | |
| tree | c99e223a0de5e9af47a42518f85585a3001adc89 | |
| parent | c504e823809aa8a299ed5326a22505f82d891ce5 (diff) | |
Test what I wanted to test
| -rw-r--r-- | inst/unitTests/runit.mkinpredict.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/inst/unitTests/runit.mkinpredict.R b/inst/unitTests/runit.mkinpredict.R index 997857ce..d30bcfab 100644 --- a/inst/unitTests/runit.mkinpredict.R +++ b/inst/unitTests/runit.mkinpredict.R @@ -70,7 +70,7 @@ test.SFO_solution_types <- function() checkIdentical(dev.1.e_d.percent < tol, rep(TRUE, length(dev.1.e_d.percent)))
# Compare eigen and deSolve for maximum use of formation fractions
- dev.2.e_d.percent = 100 * (r.1.e[-1] - r.1.d[-1])/r.1.e[-1]
+ dev.2.e_d.percent = 100 * (r.2.e[-1] - r.2.d[-1])/r.2.e[-1]
dev.2.e_d.percent = as.numeric(unlist((dev.2.e_d.percent)))
dev.2.e_d.percent = ifelse(is.na(dev.2.e_d.percent), 0, dev.2.e_d.percent)
checkIdentical(dev.2.e_d.percent < tol, rep(TRUE, length(dev.2.e_d.percent)))
|