diff options
Diffstat (limited to 'R/SFO.solution.R')
-rw-r--r-- | R/SFO.solution.R | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/R/SFO.solution.R b/R/SFO.solution.R deleted file mode 100644 index 17c16a4d..00000000 --- a/R/SFO.solution.R +++ /dev/null @@ -1,22 +0,0 @@ -#' 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) -} |