aboutsummaryrefslogtreecommitdiff
path: root/inst/unitTests
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2010-06-03 20:36:05 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2010-06-03 20:36:05 +0000
commit45d5b74fa1263f8ac862c43efe4f5900323d2382 (patch)
tree7573eb540d98c4a341485b31faafa779a5c4ba9d /inst/unitTests
parentfb014522ddc1057e85d3c08ab2cd753bd79bd857 (diff)
- Add the documentation of the KinGUI test data results
- Fix the corresponding test based on these results git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@12 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'inst/unitTests')
-rw-r--r--inst/unitTests/runit.mkinfit.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/inst/unitTests/runit.mkinfit.R b/inst/unitTests/runit.mkinfit.R
index 6dbd11f..df09cc6 100644
--- a/inst/unitTests/runit.mkinfit.R
+++ b/inst/unitTests/runit.mkinfit.R
@@ -31,5 +31,5 @@ test.mkinmod.schaefer07_complex_example <- function()
s$distimes["A2", "DT50"])
r$means <- (r$KinGUI + r$ModelMaker)/2
r$mkin.deviation <- abs(round(100 * ((r$mkin - r$means)/r$means), digits=1))
- checkTrue(r$mkin.deviation < 10)
+ checkIdentical(r$mkin.deviation < 10, rep(TRUE, length(r$mkin.deviation)))
}

Contact - Imprint