1 files changed, 64 insertions, 0 deletions
diff --git a/man/drift_percentages_rautmann.Rd b/man/drift_percentages_rautmann.Rd
new file mode 100644
index 0000000..c3686ff
--- /dev/null
+++ b/man/drift_percentages_rautmann.Rd
@@ -0,0 +1,64 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PEC_sw_drift.R
+\name{drift_percentages_rautmann}
+\alias{drift_percentages_rautmann}
+\title{Calculate drift percentages based on Rautmann data}
+\usage{
+drift_percentages_rautmann(
+  distances,
+  applications = 1,
+  crop_group_focus = c("arable", "hops", "vines, late", "vines, early", "fruit, late",
+    "fruit, early", "aerial"),
+  formula = c("Rautmann", "FOCUS"),
+  widths = 1
+)
+}
+\arguments{
+\item{distances}{The distances in m for which to get PEC values}
+
+\item{applications}{Number of applications for selection of drift percentile}
+
+\item{crop_group_focus}{One of the crop groups as used in \link{drift_parameters_focus}}
+
+\item{formula}{By default, the original Rautmann formula is used. If you
+specify "FOCUS", mean drift input over the width of the water body is
+calculated as described in Chapter 5.4.5 of the FOCUS surface water guidance}
+
+\item{widths}{The widths of the water bodies (only used in the FOCUS formula)}
+}
+\description{
+Calculate drift percentages based on Rautmann data
+}
+\examples{
+# Compare JKI data with Rautmann formula
+# One application on field crops, for 1 m, 3 m and 5 m distance
+drift_data_JKI[[1]][as.character(c(1, 3, 5)), "Ackerbau"]
+drift_percentages_rautmann(c(1, 3, 5))
+drift_percentages_rautmann(c(1, 3, 5), formula = "FOCUS")
+
+# One application to early or late fruit crops
+drift_data_JKI[[1]][as.character(c(3, 5, 20, 50)), "Obstbau frueh"]
+drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, early")
+drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, early", formula = "FOCUS")
+drift_data_JKI[[1]][as.character(c(3, 5, 20, 50)), "Obstbau spaet"]
+drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, late")
+drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, late", formula = "FOCUS")
+
+# We get a continuum if the waterbody covers the hinge distance (11.4 m for 1 early app to fruit)
+drift_percentages_rautmann(seq(10, 13, by = 0.2), crop_group = "fruit, early", formula = "FOCUS")
+x <- seq(1, 30, by = 0.1)
+d <- drift_percentages_rautmann(x, crop_group = "fruit, early", formula = "FOCUS")
+plot(x, d, type = "l",
+  xlab = "Distance of near edge [m]", 
+  ylab = "Mean drift percentage over waterbody width",
+  main = "One application to fruit, early")
+abline(v = 11.4, lty = 2)
+}
+\references{
+FOCUS (2014) Generic guidance for Surface Water Scenarios (version 1.4).
+FOrum for the Co-ordination of pesticde fate models and their USe.
+\url{http://esdac.jrc.ec.europa.eu/public_path/projects_data/focus/sw/docs/Generic\%20FOCUS_SWS_vc1.4.pdf}
+}
+\seealso{
+\link{drift_parameters_focus}, \link{PEC_sw_drift}
+}