1 files changed, 39 insertions, 0 deletions
diff --git a/man/schaefer07_complex_case.Rd b/man/schaefer07_complex_case.Rd
new file mode 100644
index 00000000..2978e25d
--- /dev/null
+++ b/man/schaefer07_complex_case.Rd
@@ -0,0 +1,39 @@
+\name{schaefer07_complex_case}
+\alias{schaefer07_complex_case}
+\encoding{latin1}
+\docType{data}
+\title{
+  Metabolism data set used for checking the software quality of KinGUI
+}
+\description{
+  This dataset was used for a comparison of KinGUI and ModelMaker to check the
+  software quality of KinGUI in the original publication (Schäfer et al., 2007).
+}
+\usage{data(schaefer07_complex_case)}
+\format{
+  A data frame with 8 observations on the following 6 variables.
+  \describe{
+    \item{\code{time}}{a numeric vector}
+    \item{\code{parent}}{a numeric vector}
+    \item{\code{A1}}{a numeric vector}
+    \item{\code{B1}}{a numeric vector}
+    \item{\code{C1}}{a numeric vector}
+    \item{\code{A2}}{a numeric vector}
+  }
+}
+\source{
+  Schäfer D, Mikolasch M, Rainbird P and Harvey B (2007). KinGUI: a new kinetic
+  software tool for evaluations according to FOCUS degradation kinetics. In: Del
+  Re AAM, Capri E, Fragoulis G and Trevisan M (Eds.). Proceedings of the XIII
+  Symposium Pesticide Chemistry, Piacenza, 2007, p. 916-923.  }
+\examples{
+data <- mkin_wide_to_long(schaefer07_complex_case, time = "time")
+model <- mkinmod(
+  parent = list(type = "SFO", to = c("A1", "B1", "C1"), sink = FALSE),
+  A1 = list(type = "SFO", to = "A2"),
+  B1 = list(type = "SFO"),
+  C1 = list(type = "SFO"),
+  A2 = list(type = "SFO"))
+\dontrun{mkinfit(model, data, plot=TRUE)}
+}
+\keyword{datasets}