blob: b72675a98f55d45719e71ad3001f9f9f2fdd44db (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
\name{mkinplot}
\alias{mkinplot}
\title{
Plot the observed data and the fitted model of an mkinfit.
}
\description{
Solves the differential equations with the optimised and fixed parameters
from a previous successful call to \code{\link{mkinfit}} and plots
the observed data together with the numerical solution of the fitted model.
}
\usage{
mkinplot(fit, xlab = "Time", ylab = "Observed",
xlim = range(fit$data$time), ylim = range(fit$data$observed, na.rm=TRUE),
legend = TRUE, ...)
}
\arguments{
\item{fit}{
an object of class \code{\link{mkinfit}}.
}
\item{xlab}{
label for the x axis.
}
\item{ylab}{
label for the y axis.
}
\item{xlim}{
plot range in x direction.
}
\item{ylim}{
plot range in y direction.
}
\item{legend}{
legend specifying if a legend should be included in the plot.
}
\item{\dots}{
further arguments passed to \code{\link{plot}}.
}
}
\value{
The function is called for its side effect.
}
\examples{
# One parent compound, one metabolite, both single first order.
SFO_SFO <- mkinmod(
parent = list(type = "SFO", to = "m1", sink = TRUE),
m1 = list(type = "SFO"))
# Fit the model to the FOCUS example dataset D using defaults
fit <- mkinfit(SFO_SFO, FOCUS_2006_D)
\dontrun{mkinplot(fit)}
}
\author{
Johannes Ranke
}
\keyword{ hplot }
|
