From f24a86c1f33e06c8114021c5c3956b5f7c400c18 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 4 Nov 2020 10:06:34 +0100 Subject: Revert to use starting values for random effects in nlme.mmkin --- tests/testthat/test_nlme.R | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'tests/testthat/test_nlme.R') diff --git a/tests/testthat/test_nlme.R b/tests/testthat/test_nlme.R index 5a8db142..4fd8e53f 100644 --- a/tests/testthat/test_nlme.R +++ b/tests/testthat/test_nlme.R @@ -59,12 +59,10 @@ test_that("nlme_function works correctly", { expect_equal(m_nlme_raw_2$coefficients, m_nlme_mmkin$coefficients) - anova_nlme <- anova(m_nlme_mmkin, m_nlme_raw) # mmkin needs to go first as we had - # to adapt the method due to - # https://bugs.r-project.org/bugzilla/show_bug.cgi?id=17761 + anova_nlme <- anova(m_nlme_raw, m_nlme_mmkin) # We get a slightly lower AIC with the improved starting values used within - # nlme.mmkin + # nlme.mmkin, specifying also random effects expect_lt(anova_nlme["m_nlme_mmkin", "AIC"], anova_nlme["m_nlme_raw", "AIC"]) -- cgit v1.2.1