Start of an Steps 1/2 calculator in R

2 files changed, 58 insertions, 0 deletions

diff --git a/man/PEC_sw_focus.Rd b/man/PEC_sw_focus.Rd
new file mode 100644
index 0000000..0f444ca
--- /dev/null
+++ b/man/PEC_sw_focus.Rd
@@ -0,0 +1,36 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PEC_sw_focus.R
+\name{PEC_sw_focus}
+\alias{PEC_sw_focus}
+\title{Calculate FOCUS Step 1 PEC surface water}
+\usage{
+PEC_sw_focus(parent, rate, n = 1, i = NA, applications = data.frame(time =
+  seq(0, 0 + n * i, length.out = n), amount = rate), met = NULL, step = 1,
+  f_drift = 0.02759, f_rd = 0.1)
+}
+\arguments{
+\item{parent}{A list containing substance specific parameters}
+
+\item{rate}{The application rate in g/ha. Overriden when
+applications are given explicitly}
+
+\item{n}{The number of applications}
+
+\item{i}{The application interval}
+
+\item{applications}{A dataframe containing times and amounts of each application}
+
+\item{step}{At the moment, only Step 1 is implemented}
+}
+\description{
+This is an attempt to reimplement the FOCUS Step 1 and 2 calculator authored
+by Michael Klein. The Step 1 and 2 scenario assumes an area ratio of 10:1
+between field and waterbody, and a water depth of 30 cm.
+I did not (yet) implement the TWA formulas for times later than day 1, as I
+did not understand them right away.
+Also, Step 2 is not implemented (yet).
+}
+\examples{
+dummy_1 <- chent_focus_sw(cwsat = 6000, DT50_ws = 6, Koc = 344.8)
+PEC_sw_focus(dummy_1, 3000, f_drift = 0)
+}
diff --git a/man/chent_focus_sw.Rd b/man/chent_focus_sw.Rd
new file mode 100644
index 0000000..26742d0
--- /dev/null
+++ b/man/chent_focus_sw.Rd
@@ -0,0 +1,22 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PEC_sw_focus.R
+\name{chent_focus_sw}
+\alias{chent_focus_sw}
+\title{Create an chemical compound object for FOCUS Step 1 and 2 calculations}
+\usage{
+chent_focus_sw(Koc, DT50_ws, cwsat = 1000)
+}
+\arguments{
+\item{Koc}{Partition coefficient between organic carbon and water
+in L/kg.}
+
+\item{DT50_ws}{Half-life in water/sediment systems in days}
+
+\item{cwsat}{Water solubility in mg/L}
+}
+\value{
+A list with the substance specific properties
+}
+\description{
+Create an chemical compound object for FOCUS Step 1 and 2 calculations
+}