From f1571917e5ef114ea20b5a504ef160c5ab24b42a Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 16 Apr 2020 15:06:40 +0200 Subject: Test the new endpoint function on nlme.mmkin --- tests/testthat/test_nlme.R | 3 +++ 1 file changed, 3 insertions(+) (limited to 'tests/testthat') 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", { -- cgit v1.2.1