diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-12-22 19:32:54 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-12-22 19:32:54 +0100 |
| commit | 3a579d87820ccbec514f1be5eb090e874fd87eec (patch) | |
| tree | fdc726d4938dc98fc741a38435372da22dc9e956 /pkg/tests/testthat/test_UK_drainage.R | |
| parent | 9851a97ec915ddbfc8357f1a7e2cabae56c89f7d (diff) | |
EFSA 2015 tier 1 PEC soil, clean up, add static docs
Diffstat (limited to 'pkg/tests/testthat/test_UK_drainage.R')
| -rw-r--r-- | pkg/tests/testthat/test_UK_drainage.R | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pkg/tests/testthat/test_UK_drainage.R b/pkg/tests/testthat/test_UK_drainage.R index 3a57db8..859f145 100644 --- a/pkg/tests/testthat/test_UK_drainage.R +++ b/pkg/tests/testthat/test_UK_drainage.R @@ -21,13 +21,13 @@ test_that("UK drainflow PECs are correct", { # This is the first example calculation from the data requirements handbook, where they give # 8.07 µg/L as the result (obviously a rounding error). - expect_equal(round(PEC_sw_drainage_UK_ini(150, interception = 0, Koc = 100), 4), 8.0769) + expect_equal(round(PEC_sw_drainage_UK(150, interception = 0, Koc = 100), 4), 8.0769) # This is the second example calculation from the data requirements handbook - expect_equal(round(PEC_sw_drainage_UK_ini(90, interception = 0, Koc = 10), 4), 13.1538) + expect_equal(round(PEC_sw_drainage_UK(90, interception = 0, Koc = 10), 4), 13.1538) # This is the third example calculation from the data requirements handbook, - expect_equal(round(PEC_sw_drainage_UK_ini(60, interception = 0.5, Koc = 550, - latest_application = "01 July", - soil_DT50 = 200), 2), 0.84) + expect_equal(round(PEC_sw_drainage_UK(60, interception = 0.5, Koc = 550, + latest_application = "01 July", + soil_DT50 = 200), 2), 0.84) }) |