diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2018-07-17 17:29:14 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-07-17 17:38:29 +0200 |
commit | 280d36230052de4f94e384648c1283031fbc9840 (patch) | |
tree | df0ba9e07386b593cc396b8b6976210d42ee1a46 /tests/testthat/test_lod_loq.R | |
parent | e636c17f0d354a8e74546fc1469431dbe502dc76 (diff) |
Fix inverse predictions for replicate measurements
For details, see NEWS.md
Diffstat (limited to 'tests/testthat/test_lod_loq.R')
-rw-r--r-- | tests/testthat/test_lod_loq.R | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/testthat/test_lod_loq.R b/tests/testthat/test_lod_loq.R index 6ba0ad0..da0f45e 100644 --- a/tests/testthat/test_lod_loq.R +++ b/tests/testthat/test_lod_loq.R @@ -15,7 +15,11 @@ test_that("lod is stable across chemCal versions", { }) test_that("loq is stable across chemCal versions", { - m2 <- lm(y ~ x, data = massart97ex3) + # Actually it was not stable between chemCal <0.2 and + # chemCal > 0.2, so we needed to adapt the test + # to work on a model on the means + massart97ex3_means <- aggregate(y ~ x, massart97ex3, mean) + m2 <- lm(y ~ x, data = massart97ex3_means) loq_1 <- loq(m2) expect_equal(signif(loq_1$x, 7), 13.97764) expect_equal(signif(loq_1$y, 7), 30.6235) |