From d75cc396f3e93b06ba1c7a165543fe885ff9c69c Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 8 Apr 2020 09:57:53 +0200 Subject: Make the nlme test file work with testthat --- tests/testthat/test_nlme.R | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'tests/testthat/test_nlme.R') diff --git a/tests/testthat/test_nlme.R b/tests/testthat/test_nlme.R index b3c41f00..31db92e1 100644 --- a/tests/testthat/test_nlme.R +++ b/tests/testthat/test_nlme.R @@ -26,7 +26,11 @@ test_that("nlme_function works correctly", { mean_dp <- mean_degparms(f) grouped_data <- nlme_data(f) + nlme_f <- nlme_function(f) + # The following assignment was introduced for nlme as evaluated by testthat + # to find the function + assign("nlme_f", nlme_f, pos = globalenv()) m_nlme_raw <- nlme(value ~ SSasymp(time, 0, parent_0, log_k_parent_sink), data = grouped_data, @@ -58,6 +62,5 @@ test_that("nlme_function works correctly", { m_nlme_mkin_up_2 <- update(m_nlme_mkin, random = parent_0 ~ 1) expect_equal(m_nlme_raw_up_2$coefficients, m_nlme_mkin_up_2$coefficients) - # update(m_nlme_mkin) # works - + expect_silent(tmp <- update(m_nlme_mkin)) }) -- cgit v1.2.1