From f2a03cedb1a5f239185ce6c4b3b4eff2fe3636bd Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 16 Apr 2015 12:12:20 +0200 Subject: Test what I wanted to test --- inst/unitTests/runit.mkinpredict.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- cgit v1.2.1