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

1 files changed, 41 insertions, 0 deletions

diff --git a/R/EFSA_GW_interception_2014.R b/R/EFSA_GW_interception_2014.R
new file mode 100644
index 0000000..15d7835
--- /dev/null
+++ b/R/EFSA_GW_interception_2014.R
@@ -0,0 +1,41 @@
+#' Subset of EFSA crop interception default values for groundwater modelling
+#'
+#' @name EFSA_GW_interception_2014
+#' @docType data
+#' @source European Food Safety Authority (2014) EFSA Guidance Document for
+#' evaluating laboratory and field dissipation studies to obtain DegT50 values
+#' of active substances of plant protection products and transformation
+#' products of these active substances in soil. \emph{EFSA Journal}
+#' \bold{12}(5):3662, 37 pp., doi:10.2903/j.efsa.2014.3662
+#' @format A matrix containing interception values, currently only for some selected crops
+#' @examples
+#' \dontrun{
+#'   # This is the code that was used to define the data
+#'   bbch <- paste0(0:9, "x")
+#'   crops <- c(
+#'     "Beans (field + vegetable)",
+#'     "Peas",
+#'     "Summer oilseed rape", "Winter oilseed rape",
+#'     "Tomatoes",
+#'     "Spring cereals", "Winter cereals")
+#'   EFSA_GW_interception_2014 <- matrix(NA, length(crops), length(bbch),
+#'     dimnames = list(Crop = crops, BBCH = bbch))
+#'   EFSA_GW_interception_2014["Beans (field + vegetable)", ] <-
+#'     c(0, 0.25, rep(0.4, 2), rep(0.7, 5), 0.8)
+#'   EFSA_GW_interception_2014["Peas", ] <-
+#'     c(0, 0.35, rep(0.55, 2), rep(0.85, 5), 0.85)
+#'   EFSA_GW_interception_2014["Summer oilseed rape", ] <-
+#'     c(0, 0.4, rep(0.8, 2), rep(0.8, 5), 0.9)
+#'   EFSA_GW_interception_2014["Winter oilseed rape", ] <-
+#'     c(0, 0.4, rep(0.8, 2), rep(0.8, 5), 0.9)
+#'   EFSA_GW_interception_2014["Tomatoes", ] <-
+#'     c(0, 0.5, rep(0.7, 2), rep(0.8, 5), 0.5)
+#'   EFSA_GW_interception_2014["Spring cereals", ] <-
+#'     c(0, 0, 0.2, 0.8, rep(0.9, 3), rep(0.8, 2), 0.8)
+#'   EFSA_GW_interception_2014["Winter cereals", ] <-
+#'     c(0, 0, 0.2, 0.8, rep(0.9, 3), rep(0.8, 2), 0.8)
+#'   save(EFSA_GW_interception_2014,
+#'     file = "../data/EFSA_GW_interception_2014.RData")
+#' }
+#' EFSA_GW_interception_2014
+NULL