From 435e07a6f7fd2599d783fd306ee6d9e08acc0c6b Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 27 Sep 2019 10:00:15 +0200 Subject: 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 --- tests/testthat/test_UK_drainage.R | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'tests/testthat') 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", { -- cgit v1.2.1