aboutsummaryrefslogtreecommitdiff
path: root/man/summary.nlmixr.mmkin.Rd
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2021-06-11 11:14:45 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2021-06-11 11:14:45 +0200
commit0c9b2f0e3c8ce65cb790c9e048476784cbbea070 (patch)
tree578f716c9daaff9502a95178e2d6ba63da438fbe /man/summary.nlmixr.mmkin.Rd
parentc6eb6b2bb598002523c3d34d71b0e4a99671ccd6 (diff)
Finished 'summary.nlmixr.mmkin', checks, docs
Diffstat (limited to 'man/summary.nlmixr.mmkin.Rd')
-rw-r--r--man/summary.nlmixr.mmkin.Rd17
1 files changed, 10 insertions, 7 deletions
diff --git a/man/summary.nlmixr.mmkin.Rd b/man/summary.nlmixr.mmkin.Rd
index 03f0ffb2..ab8abd5d 100644
--- a/man/summary.nlmixr.mmkin.Rd
+++ b/man/summary.nlmixr.mmkin.Rd
@@ -2,12 +2,15 @@
% Please edit documentation in R/summary.nlmixr.mmkin.R
\name{summary.nlmixr.mmkin}
\alias{summary.nlmixr.mmkin}
+\alias{print.summary.nlmixr.mmkin}
\title{Summary method for class "nlmixr.mmkin"}
\usage{
\method{summary}{nlmixr.mmkin}(object, data = FALSE, verbose = FALSE, distimes = TRUE, ...)
+
+\method{print}{summary.nlmixr.mmkin}(x, digits = max(3, getOption("digits") - 3), verbose = x$verbose, ...)
}
\arguments{
-\item{object}{an object of class \link{nlmix.mmkin}}
+\item{object}{an object of class \link{nlmixr.mmkin}}
\item{data}{logical, indicating whether the full data should be included in
the summary.}
@@ -19,7 +22,7 @@ included.}
\item{\dots}{optional arguments passed to methods like \code{print}.}
-\item{x}{an object of class \link{summary.nlmix.mmkin}}
+\item{x}{an object of class \link{summary.nlmixr.mmkin}}
\item{digits}{Number of digits to use for printing}
}
@@ -32,9 +35,7 @@ produced}
\item{diffs}{The differential equations used in the degradation model}
\item{use_of_ff}{Was maximum or minimum use made of formation fractions}
\item{data}{The data}
-\item{confint_trans}{Transformed parameters as used in the optimisation, with confidence intervals}
\item{confint_back}{Backtransformed parameters, with confidence intervals if available}
-\item{confint_errmod}{Error model parameters with confidence intervals}
\item{ff}{The estimated formation fractions derived from the fitted
model.}
\item{distimes}{The DT50 and DT90 values for each observed variable.}
@@ -85,12 +86,14 @@ ds_syn_dfop_sfo <- lapply(ds_mean_dfop_sfo, function(ds) {
\dontrun{
# Evaluate using mmkin and nlmixr
f_mmkin_dfop_sfo <- mmkin(list(dfop_sfo), ds_syn_dfop_sfo,
- quiet = TRUE, error_model = "obs", cores = 5)
+ quiet = TRUE, error_model = "tc", cores = 5)
f_saemix_dfop_sfo <- mkin::saem(f_mmkin_dfop_sfo)
f_nlme_dfop_sfo <- mkin::nlme(f_mmkin_dfop_sfo)
f_nlmixr_dfop_sfo_saem <- nlmixr(f_mmkin_dfop_sfo, est = "saem")
-#f_nlmixr_dfop_sfo_focei <- nlmixr(f_mmkin_dfop_sfo, est = "focei")
-summary(f_nlmixr_dfop_sfo, data = TRUE)
+# The following takes a very long time but gives
+f_nlmixr_dfop_sfo_focei <- nlmixr(f_mmkin_dfop_sfo, est = "focei")
+AIC(f_nlmixr_dfop_sfo_saem$nm, f_nlmixr_dfop_sfo_focei$nm)
+summary(f_nlmixr_dfop_sfo_sfo, data = TRUE)
}
}

Contact - Imprint