diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-28 12:24:32 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-28 12:24:32 +0200 |
| commit | 609bfe2fd7ecbdcad5f5d641f0db51541dcd6a4e (patch) | |
| tree | 82384c0441bdf268040ecc29913d820ae26611b6 /tests/testthat/test_nlme.R | |
| parent | 156b82b88dbd73e9370c74b474432b410415046d (diff) | |
use_of_ff = "max" for shorthand models like "SFO"
Diffstat (limited to 'tests/testthat/test_nlme.R')
| -rw-r--r-- | tests/testthat/test_nlme.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/testthat/test_nlme.R b/tests/testthat/test_nlme.R index 31fb19de..5a8db142 100644 --- a/tests/testthat/test_nlme.R +++ b/tests/testthat/test_nlme.R @@ -51,10 +51,10 @@ test_that("nlme_function works correctly", { m_nlme_mmkin <- nlme(f) - m_nlme_raw_2 <- nlme(value ~ SSasymp(time, 0, parent_0, log_k_parent_sink), + m_nlme_raw_2 <- nlme(value ~ SSasymp(time, 0, parent_0, log_k_parent), data = grouped_data, - fixed = parent_0 + log_k_parent_sink ~ 1, - random = pdDiag(parent_0 + log_k_parent_sink ~ 1), + fixed = parent_0 + log_k_parent ~ 1, + random = pdDiag(parent_0 + log_k_parent ~ 1), start = mean_degparms(f, random = TRUE)) expect_equal(m_nlme_raw_2$coefficients, m_nlme_mmkin$coefficients) |