aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_schaefer07_complex_case.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-04-10 10:17:35 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2019-04-10 10:17:35 +0200
commit194659fcaccdd1ee37851725b8c72e99daa3a8cf (patch)
treeedbbebe8956000b9eb725ca425b91e051571ec02 /tests/testthat/test_schaefer07_complex_case.R
parent5814be02f286ce96d6cff8d698aea6844e4025f1 (diff)
Adapt tests, vignettes and examples
- Write the NEWS - Static documentation rebuilt by pkgdown - Adapt mkinerrmin - Fix (hopefully all) remaining problems in mkinfit
Diffstat (limited to 'tests/testthat/test_schaefer07_complex_case.R')
-rw-r--r--tests/testthat/test_schaefer07_complex_case.R9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/testthat/test_schaefer07_complex_case.R b/tests/testthat/test_schaefer07_complex_case.R
index 844dd88f..66ebc03b 100644
--- a/tests/testthat/test_schaefer07_complex_case.R
+++ b/tests/testthat/test_schaefer07_complex_case.R
@@ -57,10 +57,11 @@ test_that("Complex test case from Schaefer (2007) can be reproduced (10% toleran
r$mkin.deviation <- abs(round(100 * ((r$mkin - r$means)/r$means), digits=1))
expect_equal(r$mkin.deviation < 10, rep(TRUE, 14))
- # If we use optimisation algorithm 'Marq' we get a local minimum with a
- # sum of squared residuals of 273.3707
- # When using 'Marq', we need to give a good starting estimate e.g. for k_A2 in
+ # In previous versions of mkinfit, if we used optimisation algorithm 'Marq'
+ # we got a local minimum with a sum of squared residuals of 273.3707
+ # When using 'Marq', we needed to give a good starting estimate e.g. for k_A2 in
# order to get the optimum with sum of squared residuals 240.5686
- expect_equal(round(fit.default$ssr, 4), 240.5686)
+ ssr <- sum(fit.default$data$residual^2)
+ expect_equal(round(ssr, 4), 240.5686)
})

Contact - Imprint