aboutsummaryrefslogtreecommitdiff
path: root/man/test_data_from_UBA_2014.Rd
diff options
context:
space:
mode:
Diffstat (limited to 'man/test_data_from_UBA_2014.Rd')
-rw-r--r--man/test_data_from_UBA_2014.Rd52
1 files changed, 52 insertions, 0 deletions
diff --git a/man/test_data_from_UBA_2014.Rd b/man/test_data_from_UBA_2014.Rd
new file mode 100644
index 00000000..53100d8d
--- /dev/null
+++ b/man/test_data_from_UBA_2014.Rd
@@ -0,0 +1,52 @@
+\name{test_data_from_UBA_2014}
+\alias{test_data_from_UBA_2014}
+\docType{data}
+\title{
+ Three experimental datasets from two water sediment systems and one soil
+}
+\description{
+ The datasets were used for the comparative validation of several kinetic evaluation
+ software packages (Ranke, 2014).
+}
+\usage{test_data_from_UBA_2014}
+\format{
+ A list containing three datasets as an R6 class defined by \code{\link{mkinds}}.
+ Each dataset has, among others, the following components
+ \describe{
+ \item{\code{title}}{The name of the dataset, e.g. \code{UBA_2014_WS_river}}
+ \item{\code{data}}{A data frame with the data in the form expected by \code{\link{mkinfit}}}
+ }
+}
+\source{
+ Ranke (2014) Prüfung und Validierung von Modellierungssoftware als Alternative
+ zu ModelMaker 4.0, Umweltbundesamt Projektnummer 27452
+}
+\examples{
+ # This is a level P-II evaluation of the dataset according to the FOCUS kinetics
+ # guidance. Due to the strong correlation of the parameter estimates, the
+ # covariance matrix is not returned. Note that level P-II evaluations are
+ # generally considered deprecated due to the frequent occurrence of such
+ # large parameter correlations, among other reasons (e.g. the adequacy of the
+ # model).
+ m_ws <- mkinmod(parent_w = mkinsub("SFO", "parent_s"),
+ parent_s = mkinsub("SFO", "parent_w"))
+ f_river <- mkinfit(m_ws, test_data_from_UBA_2014[[1]]$data)
+ plot(f_river)
+
+ summary(f_river)$bpar
+ mkinerrmin(f_river)
+
+ # This is the evaluation used for the validation of software packages
+ # in the expertise from 2014
+ m_soil <- mkinmod(parent = mkinsub("SFO", c("M1", "M2")),
+ M1 = mkinsub("SFO", "M3"),
+ M2 = mkinsub("SFO", "M3"),
+ M3 = mkinsub("SFO"),
+ use_of_ff = "max")
+
+ f_soil <- mkinfit(m_soil, test_data_from_UBA_2014[[3]]$data)
+ plot(f_soil)
+ summary(f_soil)$bpar
+ mkinerrmin(f_soil)
+}
+\keyword{datasets}

Contact - Imprint