From 45d5b74fa1263f8ac862c43efe4f5900323d2382 Mon Sep 17 00:00:00 2001 From: jranke Date: Thu, 3 Jun 2010 20:36:05 +0000 Subject: - 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 --- inst/unitTests/runit.mkinfit.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'inst/unitTests') 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))) } -- cgit v1.2.1