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
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/twa.R
\name{plot.one_box}
\alias{plot.one_box}
\title{Plot time series of decline data}
\usage{
\method{plot}{one_box}(
x,
xlim = range(time(x)),
ylim = c(0, max(x)),
xlab = "Time",
ylab = "Residue",
max_twa = NULL,
max_twa_var = dimnames(x)[[2]][1],
...
)
}
\arguments{
\item{x}{The object of type \code{\link{one_box}} to be plotted}
\item{xlim}{Limits for the x axis}
\item{ylim}{Limits for the y axis}
\item{xlab}{Label for the x axis}
\item{ylab}{Label for the y axis}
\item{max_twa}{If a numeric value is given, the maximum time weighted
average concentration(s) is/are shown in the graph.}
\item{max_twa_var}{Variable for which the maximum time weighted average should
be shown if max_twa is not NULL.}
\item{...}{Further arguments passed to methods}
}
\description{
Plot time series of decline data
}
\examples{
dfop_pred <- one_box("DFOP", parms = c(k1 = 0.2, k2 = 0.02, g = 0.7))
plot(dfop_pred)
plot(sawtooth(dfop_pred, 3, 7), max_twa = 21)
# Use a fitted mkinfit model
m_2 <- mkinmod(parent = mkinsub("SFO", "m1"), m1 = mkinsub("SFO"))
fit_2 <- mkinfit(m_2, FOCUS_2006_D, quiet = TRUE)
pred_2 <- one_box(fit_2, ini = 1)
pred_2_saw <- sawtooth(pred_2, 2, 7)
plot(pred_2_saw, max_twa = 21, max_twa_var = "m1")
}
\seealso{
\code{\link{sawtooth}}
}
|
