% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/plotting.R
\name{plot_seair}
\alias{plot_seair}
\title{Plot aggregate compartment trajectories}
\usage{
plot_seair(sol, which = c("S", "E", "A", "I", "R"), ...)
}
\arguments{
\item{sol}{A \code{"seair_solution"} object.}

\item{which}{Character vector of compartments to plot; any subset
of \code{c("S","E","A","I","R")}.}

\item{...}{Additional graphical parameters passed to
\code{\link[graphics]{matplot}}.}
}
\value{
Invisibly returns the aggregate data frame.
}
\description{
Convenience plot of the five aggregate compartment trajectories
produced by a SEAIR solution.
}
\examples{
m <- seq(0, 1, length.out = 31)
f <- dbeta(m, 2, 2)
init <- seair_init(m, f, I_seed = 1e-4)
pars <- seair_params(beta = 1.5, sigma = 0.3, kappa = 0.2,
                     gamma_A = 0.1, gamma_I = 0.13,
                     alpha = 0.5, delta = 0.3)
sol <- seair_solve(init, pars, times = seq(0, 30, by = 2))
plot_seair(sol, which = c("S","I","R"))

}
