Merge branch 'algorithm'

1 files changed, 120 insertions, 0 deletions

diff --git a/man/experimental_data_for_UBA.Rd b/man/experimental_data_for_UBA.Rd
new file mode 100644
index 00000000..e3386a2f
--- /dev/null
+++ b/man/experimental_data_for_UBA.Rd
@@ -0,0 +1,120 @@
+\name{experimental_data_for_UBA_2019}
+\alias{experimental_data_for_UBA_2019}
+\docType{data}
+\title{
+  Experimental datasets used for development and testing of error models
+}
+\description{
+ The 12 datasets were extracted from active substance evaluation dossiers published
+ by EFSA. Kinetic evaluations shown for these datasets are intended to illustrate
+ and advance error model specifications. The fact that these data and some
+ results are shown here do 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.
+
+ Preprocessing of data was performed based on the recommendations of the FOCUS
+ kinetics workgroup (FOCUS, 2014) as described below.
+
+ Datasets 1 and 2 are from the Renewal Assessment Report (RAR) for imazamox
+ (France, 2015, p. 15). For setting values reported as zero, an LOQ of 0.1
+ was assumed. Metabolite residues reported for day zero were added to the
+ parent compound residues.
+
+ Datasets 3 and 4 are from the Renewal Assessment Report (RAR) for isofetamid
+ (Belgium, 2014, p. 8) and show the data for two different radiolabels. For
+ dataset 4, the value given for the metabolite in the day zero sampling
+ in replicate B was added to the parent compound, following the respective
+ FOCUS recommendation.
+
+ Dataset 5 is from the Renewal Assessment Report (RAR) for ethofumesate
+ (Austria, 2015, p. 16).
+
+ Datasets 6 to 10 are from the Renewal Assessment Report (RAR) for glyphosate
+ (Germany, 2013a, pages 8, 28, 50, 51). For the initial sampling,
+ the residues given for the metabolite were added to the parent
+ value, following the recommendation of the FOCUS kinetics workgroup.
+
+ Dataset 11 is from the Renewal Assessment Report (RAR) for 2,4-D
+ (Germany, 2013b, p. 644). Values reported as zero were set to NA, with
+ the exception of the day three sampling of metabolite A2, which was set
+ to one half of the LOD reported to be 1\% AR.
+
+ Dataset 12 is from the Renewal Assessment Report (RAR) for thifensulfuron-methyl
+ (United Kingdom, 2014, p. 81).
+
+}
+\usage{experimental_data_for_UBA_2019}
+\format{
+  A list containing twelve datasets as an R6 class defined by \code{\link{mkinds}},
+  each containing, among others, the following components
+  \describe{
+    \item{\code{title}}{The name of the dataset, e.g. \code{Soil 1}}
+    \item{\code{data}}{A data frame with the data in the form expected by \code{\link{mkinfit}}}
+  }
+}
+\source{
+
+  Austria (2015). Ethofumesate Renewal Assessment Report Volume 3 Annex B.8 (AS)
+
+  Belgium (2014). Isofetamid (IKF-5411) Draft Assessment Report Volume 3 Annex B.8 (AS)
+
+  France (2015). Imazamox Draft Renewal Assessment Report Volume 3 Annex B.8 (AS)
+
+  FOCUS (2014) \dQuote{Generic guidance for Estimating Persistence and
+  Degradation Kinetics from Environmental Fate Studies on Pesticides in EU
+  Registration} Report of the FOCUS Work Group on Degradation Kinetics,
+  Version 1.1, 18 December 2014
+  \url{http://esdac.jrc.ec.europa.eu/projects/degradation-kinetics}
+
+  Germany (2013a). Renewal Assessment Report Glyphosate Volume 3 Annex B.8: Environmental Fate
+  and Behaviour
+
+  Germany (2013b). Renewal Assessment Report 2,4-D Volume 3 Annex B.8: Fate and behaviour in the
+  environment
+
+  Ranke (2019) Documentation of results obtained for the error model expertise
+  written for the German Umweltbundesamt.
+
+  United Kingdom (2014). Thifensulfuron-methyl - Annex B.8 (Volume 3) to the Report and Proposed
+  Decision of the United Kingdom made to the European Commission under Regulation (EC) No.
+  1141/2010 for renewal of an active substance
+
+}
+\examples{\dontrun{
+
+# Model definitions
+sfo_sfo <- mkinmod(
+  parent = mkinsub("SFO", to = "A1"),
+  A1 = mkinsub("SFO"),
+  use_of_ff = "max"
+)
+
+dfop_sfo <- mkinmod(
+  parent = mkinsub("DFOP", to = "A1"),
+  A1 = mkinsub("SFO"),
+  use_of_ff = "max"
+)
+
+sfo_sfo_sfo <- mkinmod(
+  parent = mkinsub("SFO", to = "A1"),
+  A1 = mkinsub("SFO", to = "A2"),
+  A2 = mkinsub("SFO"),
+  use_of_ff = "max"
+)
+
+dfop_sfo_sfo <- mkinmod(
+  parent = mkinsub("DFOP", to = "A1"),
+  A1 = mkinsub("SFO", to = "A2"),
+  A2 = mkinsub("SFO"),
+  use_of_ff = "max"
+)
+d_1_2 <- lapply(experimental_data_for_UBA_2019[1:2], function(x) x$data)
+names(d_1_2) <- paste("Soil", 1:2)
+
+
+f_1_2_tc <- mmkin(list("DFOP-SFO-SFO" = dfop_sfo_sfo), d_1_2, error_model = "tc")
+
+plot(f_1_2_tc, resplot = "errmod")
+
+}}
+\keyword{datasets}