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
|
#' Aerobic soil degradation data on 2,4-D from the EU assessment in 2014
#'
#' The five datasets were extracted from the active substance evaluation dossier
#' published by EFSA. Kinetic evaluations shown for these datasets are intended
#' to illustrate and advance kinetic modelling. The fact that these data and
#' some results are shown here does not imply a license to use them in the
#' context of pesticide registrations, as the use of the data may be
#' constrained by data protection regulations.
#'
#' Data for the first dataset are from p. 685. Data for the other four
#' datasets were used in the preprocessed versions given in the kinetics
#' section (p. 761ff.), with the exception of residues smaller than 1 for DCP
#' in the soil from Site I2, where the values given on p. 694 were used.
#'
#' The R code used to create this data object is installed with this package
#' in the 'dataset_generation' directory. In the code, page numbers are given for
#' specific pieces of information in the comments.
#'
#' @format An [mkindsg] object grouping five datasets
#' @source Hellenic Ministry of Rural Development and Agriculture (2014)
#' Final addendum to the Renewal Assessment Report - public version - 2,4-D
#' Volume 3 Annex B.8 Fate and behaviour in the environment
#' https://open.efsa.europa.eu/study-inventory/EFSA-Q-2013-00811
#' @examples
#' print(D24_2014)
#' \dontrun{
#' print(D24_2014$ds[[1]], data = TRUE)
#' m_D24 = mkinmod(D24 = mkinsub("SFO", to = "DCP"),
#' DCP = mkinsub("SFO", to = "DCA"),
#' DCA = mkinsub("SFO"))
#' print(m_D24)
#' m_D24_2 = mkinmod(D24 = mkinsub("DFOP", to = "DCP"),
#' DCP = mkinsub("SFO", to = "DCA"),
#' DCA = mkinsub("SFO"))
#' print(m_D24_2)
#' D24_2014_data <- lapply(D24_2014$ds, function(x) x$data)
#' names(D24_2014_data) <- sapply(D24_2014$ds, function(x) x$title)
#' f_D24_2014 <- mmkin(
#' models = list(
#' "SFO-SFO-SFO" = m_D24,
#' "DFOP-SFO-SFO" = m_D24_2),
#' data = D24_2014_data,
#' quiet = TRUE)
#' print(f_D24_2014)
#' plot(f_D24_2014[, 3])
#' }
"D24_2014"
|
