% 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}}
}