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