aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_nlme.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-11-04 10:06:34 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2020-11-04 10:06:34 +0100
commitf24a86c1f33e06c8114021c5c3956b5f7c400c18 (patch)
tree50b69b4052aa2e897ba866aa3b0c481400e26296 /tests/testthat/test_nlme.R
parent91ef22b6c98b96a9954dfe0a9914c45b41ce2af4 (diff)
Revert to use starting values for random effects in nlme.mmkin
Diffstat (limited to 'tests/testthat/test_nlme.R')
-rw-r--r--tests/testthat/test_nlme.R6
1 files changed, 2 insertions, 4 deletions
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"])

Contact - Imprint