aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-09-27 10:00:15 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2019-09-27 11:08:53 +0200
commit435e07a6f7fd2599d783fd306ee6d9e08acc0c6b (patch)
treebd47fa18a307349eabf4ecfff7ea8da81f5bb654 /tests/testthat
parent803fe13e505960fddccdbd4dcb524715f5eb068d (diff)
Fix for UK drainage, some EFSA interception and washoff
- PEC_sw_drainage_UK() gave results that were a little bit too high for the substances with the highest Koc (>4000), as I used 0.01% instead of 0.008% for them. This must have come from an old vesion of the UK data requirements handbook, at least I do not have another explanation - Add EFSA interception (from 2014 DegT50 guidance) and tier 1 crop wash-off factors (from 2017 PEC soil guidance) for some major arable crops - Update docs
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_UK_drainage.R7
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/testthat/test_UK_drainage.R b/tests/testthat/test_UK_drainage.R
index 859f145..2789819 100644
--- a/tests/testthat/test_UK_drainage.R
+++ b/tests/testthat/test_UK_drainage.R
@@ -2,7 +2,10 @@ library(pfm)
context("UK drainage PEC calculations")
test_that("The mobility classification and the drained percentage are correct", {
- # Expected results are from the CRD drainage calculator, retrieved 2015-06-11
+ # Expected results are from the CRD drainage calculator, retrieved 2019-09-27
+ # The last test result was 0.01 when this test was written 2015-06-11.
+ # I assume that the value of 0.008 was displayed as 0.01 by the spreadsheet
+ # available at that time
expect_equivalent(SSLRC_mobility_classification(1), list("Very mobile", 1.9))
expect_equivalent(SSLRC_mobility_classification(15), list("Mobile", 1.9))
@@ -12,7 +15,7 @@ test_that("The mobility classification and the drained percentage are correct",
expect_equivalent(SSLRC_mobility_classification(100), list("Moderately mobile", 0.7))
expect_equivalent(SSLRC_mobility_classification(800), list("Slightly mobile", 0.5))
expect_equivalent(SSLRC_mobility_classification(2000), list("Slightly mobile", 0.02))
- expect_equivalent(SSLRC_mobility_classification(5000), list("Non mobile", 0.01))
+ expect_equivalent(SSLRC_mobility_classification(5000), list("Non mobile", 0.008))
})
test_that("UK drainflow PECs are correct", {

Contact - Imprint