aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_nlme.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-04-16 15:06:40 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2020-04-16 15:06:40 +0200
commitf1571917e5ef114ea20b5a504ef160c5ab24b42a (patch)
tree0b6902bd56f7ce1da671ac1c1a5ba1b7ddc4ddd0 /tests/testthat/test_nlme.R
parent5f5ffc8730b262e64577dc6e4cef836bae862a81 (diff)
Test the new endpoint function on nlme.mmkin
Diffstat (limited to 'tests/testthat/test_nlme.R')
-rw-r--r--tests/testthat/test_nlme.R3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/testthat/test_nlme.R b/tests/testthat/test_nlme.R
index d272af38..e5e19c60 100644
--- a/tests/testthat/test_nlme.R
+++ b/tests/testthat/test_nlme.R
@@ -88,6 +88,9 @@ test_that("nlme_function works correctly", {
expect_silent(tmp <- update(m_nlme_mkin))
expect_silent(tmp <- update(m_nlme_mmkin))
+
+ geomean_dt50_mmkin <- exp(mean(log((sapply(f, function(x) endpoints(x)$distimes["parent", "DT50"])))))
+ expect_equal(round(endpoints(m_nlme_mmkin)$distimes["parent", "DT50"]), round(geomean_dt50_mmkin))
})
test_that("nlme_function works correctly in other cases", {

Contact - Imprint