From 609bfe2fd7ecbdcad5f5d641f0db51541dcd6a4e Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 28 May 2020 12:24:32 +0200 Subject: use_of_ff = "max" for shorthand models like "SFO" --- tests/testthat/test_nlme.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/testthat/test_nlme.R') 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) -- cgit v1.2.3