blob: 17c16a4d3f7b75dfb1597ada406c9a5a8016e6f7 (
plain) (
tree)
|
|
#' Single First-Order kinetics
#'
#' Function describing exponential decline from a defined starting value.
#'
#' @param t Time.
#' @param parent.0 Starting value for the response variable at time zero.
#' @param k Kinetic constant.
#' @return The value of the response variable at time \code{t}.
#' @references FOCUS (2006) \dQuote{Guidance Document on Estimating Persistence
#' and Degradation Kinetics from Environmental Fate Studies on Pesticides in
#' EU Registration} Report of the FOCUS Work Group on Degradation Kinetics,
#' EC Document Reference Sanco/10058/2005 version 2.0, 434 pp,
#' \url{http://esdac.jrc.ec.europa.eu/projects/degradation-kinetics}
#' @examples
#'
#' \dontrun{plot(function(x) SFO.solution(x, 100, 3), 0, 2)}
#'
#' @export
SFO.solution <- function(t, parent.0, k)
{
parent = parent.0 * exp(-k * t)
}
|
