diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-09 12:19:14 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-09 12:19:14 +0100 |
| commit | d8f31d1323998f33d07535f55c81be380d93ca45 (patch) | |
| tree | ef0e614878397974bb4040e146fb116bb4ee40c5 /tests/testthat/test_mixed.R | |
| parent | 0fa8a770812775d697717ad723f7f61fb04b7fef (diff) | |
Adapt saemix interface to saemix 3.0 on CRAN
Diffstat (limited to 'tests/testthat/test_mixed.R')
| -rw-r--r-- | tests/testthat/test_mixed.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R index 9c8a84d7..6ac93295 100644 --- a/tests/testthat/test_mixed.R +++ b/tests/testthat/test_mixed.R @@ -66,9 +66,9 @@ test_that("Parent fits using saemix are correctly implemented", { expect_true(all(rel_diff_mmkin[c("parent_0", "k1")] < 0.20)) expect_true(all(rel_diff_mmkin_tested[c("parent_0", "k1", "k2")] < 0.20)) - # We get < 30% deviations with transformations made in mkin + # We get < 15% deviations with transformations made in mkin rel_diff_1 <- (s_dfop_s1$confint_back[, "est."] - dfop_pop) / dfop_pop - expect_true(all(rel_diff_1 < 0.5)) + expect_true(all(rel_diff_1 < 0.15)) # We get < 20% deviations with transformations made in saemix rel_diff_2 <- (s_dfop_s2$confint_back[, "est."] - dfop_pop) / dfop_pop |