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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/drift_data_JKI.R
\docType{data}
\name{drift_data_JKI}
\alias{drift_data_JKI}
\title{Deposition from spray drift expressed as percent of the applied dose as
published by the JKI}
\format{A list currently containing matrices with spray drift percentage
data for field crops (Ackerbau), and Pome/stone fruit, early and late
(Obstbau frueh, spaet).}
\source{
JKI (2010) Spreadsheet 'Tabelle der Abdrifteckwerte.xls', retrieved
from
http://www.jki.bund.de/no_cache/de/startseite/institute/anwendungstechnik/abdrift-eckwerte.html
on 2015-06-11
Rautmann, D., Streloke, M and Winkler, R (2001) New basic drift values in
the authorization procedure for plant protection products Mitt. Biol.
Bundesanst. Land- Forstwirtsch. 383, 133-141
}
\description{
Deposition from spray drift expressed as percent of the applied dose as
published by the German Julius-Kühn Institute (JKI).
}
\details{
The data were extracted from the spreadsheet cited below using the R code
given in the example section. The spreadsheet is not included in the package
as its licence is not clear.
Additional spray drift values were taken from the publication by Rautmann
et al. (2001). Specifically, these are the values for early vines, and
the values for a 3 m buffer which are incomplete in the spreadsheet.
Note that for vegetables, ornamentals and small fruit, the values for
field crops are used for crops < 50 cm, and the vales for late vines are
used for crops > 50 cm. In the JKI spreadsheet, it is indicated that
these values are used for spray applications with handheld/knapsack
equipment (tragbare Spritz- und Sprühgerate).
Values for non-professional use listed in the JKI spreadsheet were not
included.
}
\examples{
\dontrun{
# This is the code that was used to extract the data
library(readxl)
abdrift_path <- "inst/extdata/Tabelle der Abdrifteckwerte.xls"
JKI_crops <- c("Ackerbau", "Obstbau frueh", "Obstbau spaet", "Weinbau frueh", "Weinbau spaet",
"Hopfenbau", "Flaechenkulturen > 900 l/ha", "Gleisanlagen")
names(JKI_crops) <- c("Field crops", "Pome/stone fruit, early", "Pome/stone fruit, late",
"Vines early", "Vines late", "Hops", "Areic cultures > 900 L/ha", "Railroad tracks")
drift_data_JKI <- list()
for (n in 1:8) {
drift_data_raw <- read_excel(abdrift_path, sheet = n + 1, skip = 2)
drift_data <- matrix(NA, nrow = 9, ncol = length(JKI_crops))
dimnames(drift_data) <- list(distance = drift_data_raw[[1]][1:9],
crop = JKI_crops)
if (n == 1) { # Values for railroad tracks only present for one application
drift_data[, c(1:3, 5:8)] <- as.matrix(drift_data_raw[c(2:7, 11)][1:9, ])
} else {
drift_data[, c(1:3, 5:7)] <- as.matrix(drift_data_raw[c(2:7)][1:9, ])
}
drift_data_JKI[[n]] <- drift_data
}
# Manual data entry from the Rautmann paper
drift_data_JKI[[1]]["3", "Ackerbau"] <- 0.95
drift_data_JKI[[1]][, "Weinbau frueh"] <- c(NA, 2.7, 1.18, 0.39, 0.2, 0.13, 0.07, 0.04, 0.03)
drift_data_JKI[[2]]["3", "Ackerbau"] <- 0.79
drift_data_JKI[[2]][, "Weinbau frueh"] <- c(NA, 2.53, 1.09, 0.35, 0.18, 0.11, 0.06, 0.03, 0.02)
drift_data_JKI[[3]]["3", "Ackerbau"] <- 0.68
drift_data_JKI[[3]][, "Weinbau frueh"] <- c(NA, 2.49, 1.04, 0.32, 0.16, 0.10, 0.05, 0.03, 0.02)
drift_data_JKI[[4]]["3", "Ackerbau"] <- 0.62
drift_data_JKI[[4]][, "Weinbau frueh"] <- c(NA, 2.44, 1.02, 0.31, 0.16, 0.10, 0.05, 0.03, 0.02)
drift_data_JKI[[5]]["3", "Ackerbau"] <- 0.59
drift_data_JKI[[5]][, "Weinbau frueh"] <- c(NA, 2.37, 1.00, 0.31, 0.15, 0.09, 0.05, 0.03, 0.02)
drift_data_JKI[[6]]["3", "Ackerbau"] <- 0.56
drift_data_JKI[[6]][, "Weinbau frueh"] <- c(NA, 2.29, 0.97, 0.30, 0.15, 0.09, 0.05, 0.03, 0.02)
drift_data_JKI[[7]]["3", "Ackerbau"] <- 0.55
drift_data_JKI[[7]][, "Weinbau frueh"] <- c(NA, 2.24, 0.94, 0.29, 0.15, 0.09, 0.05, 0.03, 0.02)
drift_data_JKI[[8]]["3", "Ackerbau"] <- 0.52
drift_data_JKI[[8]][, "Weinbau frueh"] <- c(NA, 2.16, 0.91, 0.28, 0.14, 0.09, 0.04, 0.03, 0.02)
# Save the data
save(drift_data_JKI, file = "data/drift_data_JKI.RData")
}
# And this is the resulting data
drift_data_JKI
}
\keyword{datasets}
|
