1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
% 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)
x <- seq(3, 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}
}
|
