diff options
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) |