aboutsummaryrefslogtreecommitdiff
path: root/man/EFSA_GW_interception_2014.Rd
blob: f2e8c1c9ffcfb7a95a9a97b9d7ebd48c68f3f698 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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
}

Contact - Imprint