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 /man/EFSA_washoff_2017.Rd | |
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 'man/EFSA_washoff_2017.Rd')
-rw-r--r-- | man/EFSA_washoff_2017.Rd | 48 |
1 files changed, 48 insertions, 0 deletions
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 +} |