diff options
Diffstat (limited to 'tests/testthat/test_nlme.R')
| -rw-r--r-- | tests/testthat/test_nlme.R | 7 |
1 files changed, 5 insertions, 2 deletions
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)) }) |