From 1623d0f0df92e2d4f44faa7a64a0b795e275b444 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 21 Jul 2017 16:16:01 +0200 Subject: Fix tests, try FOMC ill-defined again --- tests/testthat/test_twa.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/testthat/test_twa.R') 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) -- cgit v1.2.1