From 05baf3bf92cba127fd2319b779db78be86170e5e Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 17 Jun 2021 13:58:34 +0200
Subject: Let backtransform_odeparms handle nlmixr formation fractions

Also adapt summary.nlmixr.mmkin to correctly handle the way
formation fractions are translated to nlmixr
---
 man/dimethenamid_2018.Rd | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

(limited to 'man/dimethenamid_2018.Rd')

diff --git a/man/dimethenamid_2018.Rd b/man/dimethenamid_2018.Rd
index b6f761e8..93fcad26 100644
--- a/man/dimethenamid_2018.Rd
+++ b/man/dimethenamid_2018.Rd
@@ -31,5 +31,41 @@ specific pieces of information in the comments.
 }
 \examples{
 print(dimethenamid_2018)
+dmta_ds <- lapply(1:8, function(i) {
+  ds_i <- dimethenamid_2018$ds[[i]]$data
+  ds_i[ds_i$name == "DMTAP", "name"] <-  "DMTA"
+  ds_i$time <- ds_i$time * dimethenamid_2018$f_time_norm[i]
+  ds_i
+})
+names(dmta_ds) <- sapply(dimethenamid_2018$ds, function(ds) ds$title)
+dmta_ds[["Borstel"]] <- rbind(dmta_ds[["Borstel 1"]], dmta_ds[["Borstel 2"]])
+dmta_ds[["Borstel 1"]] <- NULL
+dmta_ds[["Borstel 2"]] <- NULL
+dmta_ds[["Elliot"]] <- rbind(dmta_ds[["Elliot 1"]], dmta_ds[["Elliot 2"]])
+dmta_ds[["Elliot 1"]] <- NULL
+dmta_ds[["Elliot 2"]] <- NULL
+\dontrun{
+dfop_sfo3_plus <- mkinmod(
+  DMTA = mkinsub("DFOP", c("M23", "M27", "M31")),
+  M23 = mkinsub("SFO"),
+  M27 = mkinsub("SFO"),
+  M31 = mkinsub("SFO", "M27", sink = FALSE),
+  quiet = TRUE
+)
+f_dmta_mkin_tc <- mmkin(
+  list("DFOP-SFO3+" = dfop_sfo3_plus),
+  dmta_ds, quiet = TRUE, error_model = "tc")
+nlmixr_model(f_dmta_mkin_tc)
+f_dmta_nlmixr_focei <- nlmixr(f_dmta_mkin_tc, est = "focei",
+  control = nlmixr::foceiControl(print = 500))
+summary(f_dmta_nlmixr_focei)
+plot(f_dmta_nlmixr_focei)
+# saem has a problem with this model/data combination, maybe because of the
+# overparameterised error model, to be investigated
+#f_dmta_nlmixr_saem <- nlmixr(f_dmta_mkin_tc, est = "saem",
+#  control = saemControl(print = 500))
+#summary(f_dmta_nlmixr_saem)
+#plot(f_dmta_nlmixr_saem)
+}
 }
 \keyword{datasets}
-- 
cgit v1.2.1