diff options
| -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)))
|