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

4 files changed, 118 insertions, 1 deletions

diff --git a/man/EFSA_GW_interception_2014.Rd b/man/EFSA_GW_interception_2014.Rd
new file mode 100644
index 0000000..f2e8c1c
--- /dev/null
+++ b/man/EFSA_GW_interception_2014.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/EFSA_GW_interception_2014.R
+\docType{data}
+\name{EFSA_GW_interception_2014}
+\alias{EFSA_GW_interception_2014}
+\title{Subset of EFSA crop interception default values for groundwater modelling}
+\format{A matrix containing interception values, currently only for some selected crops}
+\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
+}
+\description{
+Subset of EFSA crop interception default values for groundwater modelling
+}
+\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
+}
diff --git a/man/EFSA_washoff_2017.Rd b/man/EFSA_washoff_2017.Rd
new file mode 100644
index 0000000..b1ab30f
--- /dev/null
+++ b/man/EFSA_washoff_2017.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/EFSA_washoff_2017.R
+\docType{data}
+\name{EFSA_washoff_2017}
+\alias{EFSA_washoff_2017}
+\title{Subset of EFSA crop washoff default values}
+\format{A matrix containing wash-off factors, currently only for some selected crops}
+\source{
+European Food Safety Authority (2017) EFSA guidance document for
+  predicting environmental concentrations of active substances of plant
+  protection products and transformation products of these active substances
+  in soil. \emph{EFSA Journal} \bold{15}(10) 4982
+  doi:10.2903/j.efsa.2017.4982
+}
+\description{
+Subset of EFSA crop washoff default values
+}
+\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_washoff_2017 <- matrix(NA, length(crops), length(bbch),
+    dimnames = list(Crop = crops, BBCH = bbch))
+  EFSA_washoff_2017["Beans (field + vegetable)", ] <-
+    c(NA, 0.6, rep(0.75, 2), rep(0.8, 5), 0.35)
+  EFSA_washoff_2017["Peas", ] <-
+    c(NA, 0.4, rep(0.6, 2), rep(0.65, 5), 0.35)
+  EFSA_washoff_2017["Summer oilseed rape", ] <-
+    c(NA, 0.4, rep(0.5, 2), rep(0.6, 5), 0.5)
+  EFSA_washoff_2017["Winter oilseed rape", ] <-
+    c(NA, 0.1, rep(0.4, 2), rep(0.55, 5), 0.3)
+  EFSA_washoff_2017["Tomatoes", ] <-
+    c(NA, 0.55, rep(0.75, 2), rep(0.7, 5), 0.35)
+  EFSA_washoff_2017["Spring cereals", ] <-
+    c(NA, 0.4, 0.5, 0.5, rep(0.65, 3), rep(0.65, 2), 0.55)
+  EFSA_washoff_2017["Winter cereals", ] <-
+    c(NA, 0.1, 0.4, 0.6, rep(0.55, 3), rep(0.6, 2), 0.4)
+  save(EFSA_washoff_2017,
+    file = "../data/EFSA_washoff_2017.RData")
+}
+EFSA_washoff_2017
+}
diff --git a/man/PEC_sw_drainage_UK.Rd b/man/PEC_sw_drainage_UK.Rd
index edb239e..c9f8ed4 100644
--- a/man/PEC_sw_drainage_UK.Rd
+++ b/man/PEC_sw_drainage_UK.Rd
@@ -34,6 +34,16 @@ published on the CRC website
 \examples{
 PEC_sw_drainage_UK(150, Koc = 100)
 }
+\references{
+HSE's Chemicals Regulation Division (CRD) Active substance
+  PECsw calculations (for UK specific authorisation requests)
+  \url{https://www.hse.gov.uk/pesticides/topics/pesticide-approvals/pesticides-registration/data-requirements-handbook/fate/active-substance-uk.htm}
+  accessed 2019-09-27
+
+  Drainage PECs Version 1.0 (2015) Spreadsheet published at
+  \url{https://www.hse.gov.uk/pesticides/topics/pesticide-approvals/pesticides-registration/data-requirements-handbook/fate/pec-tools-2015/PEC\%20sw-sed\%20(drainage).xlsx}
+  accessed 2019-09-27
+}
 \author{
 Johannes Ranke
 }
diff --git a/man/SSLRC_mobility_classification.Rd b/man/SSLRC_mobility_classification.Rd
index c7fd12d..797332b 100644
--- a/man/SSLRC_mobility_classification.Rd
+++ b/man/SSLRC_mobility_classification.Rd
@@ -14,11 +14,22 @@ A list containing the classification and the percentage of the
   compound transported per 10 mm drain water
 }
 \description{
-This implements the method specified in the UK data requirements handbook and was 
+This implements the method specified in the UK data requirements handbook and was
 checked against the spreadsheet published on the CRC website
 }
 \examples{
 SSLRC_mobility_classification(100)
+SSLRC_mobility_classification(10000)
+}
+\references{
+HSE's Chemicals Regulation Division (CRD) Active substance
+  PECsw calculations (for UK specific authorisation requests)
+  \url{https://www.hse.gov.uk/pesticides/topics/pesticide-approvals/pesticides-registration/data-requirements-handbook/fate/active-substance-uk.htm}
+  accessed 2019-09-27
+
+  Drainage PECs Version 1.0 (2015) Spreadsheet published at
+  \url{https://www.hse.gov.uk/pesticides/topics/pesticide-approvals/pesticides-registration/data-requirements-handbook/fate/pec-tools-2015/PEC\%20sw-sed\%20(drainage).xlsx}
+  accessed 2019-09-27
 }
 \author{
 Johannes Ranke