diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-21 16:16:01 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-21 16:16:27 +0200 |
| commit | 1623d0f0df92e2d4f44faa7a64a0b795e275b444 (patch) | |
| tree | 831cfafcb836e8abd559e7209519ba40bf160077 /tests/testthat/test_twa.R | |
| parent | 4cf446d2539602b6187a365da183b56618410f46 (diff) | |
Fix tests, try FOMC ill-defined again
Diffstat (limited to 'tests/testthat/test_twa.R')
| -rw-r--r-- | tests/testthat/test_twa.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_twa.R b/tests/testthat/test_twa.R index 3a28e0c1..19e706e1 100644 --- a/tests/testthat/test_twa.R +++ b/tests/testthat/test_twa.R @@ -1,4 +1,4 @@ -# Copyright (C) 2016 Johannes Ranke +# Copyright (C) 2016,2017 Johannes Ranke # Contact: jranke@uni-bremen.de # This file is part of the R package mkin @@ -37,7 +37,7 @@ test_that("Time weighted average concentrations are correct", { outtimes = outtimes_7) twa_num <- mean(pred_7$parent) names(twa_num) <- 7 - twa_ana <- twa(fit, 7) + twa_ana <- max_twa_parent(fit, 7) # Test for absolute difference (scale = 1) expect_equal(twa_num, twa_ana, tolerance = 0.001, scale = 1) |