diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-09-27 10:00:15 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-09-27 11:08:53 +0200 |
| commit | 435e07a6f7fd2599d783fd306ee6d9e08acc0c6b (patch) | |
| tree | bd47fa18a307349eabf4ecfff7ea8da81f5bb654 /tests/testthat | |
| parent | 803fe13e505960fddccdbd4dcb524715f5eb068d (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.R | 7 |
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", { |