diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-04 10:06:34 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-04 10:06:34 +0100 |
| commit | f24a86c1f33e06c8114021c5c3956b5f7c400c18 (patch) | |
| tree | 50b69b4052aa2e897ba866aa3b0c481400e26296 /tests/testthat/test_nlme.R | |
| parent | 91ef22b6c98b96a9954dfe0a9914c45b41ce2af4 (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.R | 6 |
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"]) |