aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_plots_summary_twa.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-02-27 08:06:59 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2019-02-27 08:06:59 +0100
commitc446b59e675aeff08ff7205b05f06cd81bf6dc68 (patch)
treee02e6be6232df57e8722865b06e71af3157af891 /tests/testthat/test_plots_summary_twa.R
parent10f2314d12bc1e1664b1ff1db015d1df9f7fbe34 (diff)
Fix CAKE export test to actually work
Also test the model specification via the link argument
Diffstat (limited to 'tests/testthat/test_plots_summary_twa.R')
-rw-r--r--tests/testthat/test_plots_summary_twa.R9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/testthat/test_plots_summary_twa.R b/tests/testthat/test_plots_summary_twa.R
index 5201567d..e13111bb 100644
--- a/tests/testthat/test_plots_summary_twa.R
+++ b/tests/testthat/test_plots_summary_twa.R
@@ -51,7 +51,6 @@ test_that("Time weighted average concentrations are correct", {
context("Summary")
test_that("The summary is reproducible", {
- skip_on_cran()
fit <- fits[["DFOP", "FOCUS_C"]]
test_summary <- summary(fit)
test_summary$fit_version <- "Dummy 0.0 for testing"
@@ -78,3 +77,11 @@ test_that("Plotting mmkin objects is reproducible", {
vdiffr::expect_doppelganger("mmkin plot for SFO (FOCUS C and D)", mmkin_SFO)
})
+context("AIC calculation")
+
+test_that("The AIC is reproducible", {
+ expect_equivalent(AIC(fits[["SFO", "FOCUS_C"]]), 59.8, scale = 1, tolerance = 0.1)
+ expect_equivalent(AIC(fits[, "FOCUS_C"]),
+ data.frame(df = c(3, 4, 5, 5), AIC = c(59.8, 44.7, 29.1, 39.3)),
+ scale = 1, tolerance = 0.1)
+})

Contact - Imprint