summaryrefslogtreecommitdiff
path: root/pkg/man/drift_data_JKI.Rd
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2016-09-27 23:00:48 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2016-09-27 23:00:48 +0200
commit12a31f4c130c551f82232d9ef7dfb608bd52c53f (patch)
tree2525ab1ea4102a6edddbd0c2f03f4a851bf2f9c5 /pkg/man/drift_data_JKI.Rd
parent0d958ab6f84b569b5437f231c56004890c4ae23b (diff)
Reorganise repository using standard package layout
Diffstat (limited to 'pkg/man/drift_data_JKI.Rd')
-rw-r--r--pkg/man/drift_data_JKI.Rd50
1 files changed, 0 insertions, 50 deletions
diff --git a/pkg/man/drift_data_JKI.Rd b/pkg/man/drift_data_JKI.Rd
deleted file mode 100644
index c193c0d..0000000
--- a/pkg/man/drift_data_JKI.Rd
+++ /dev/null
@@ -1,50 +0,0 @@
-% 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
-}
-\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.
-}
-\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")
- names(JKI_crops) <- c("Field crops", "Pome/stone fruit, early", "Pome/stone fruit, late")
- drift_data_JKI <- list()
-
- for (n in 1:8) {
- drift_data_raw <- read_excel(abdrift_path, sheet = n + 1, skip = 2)
- drift_data <- as.matrix(drift_data_raw[1:9, 2:4])
- dimnames(drift_data) <- list(distance = as.integer(drift_data_raw[1:9, 1]),
- crop = JKI_crops)
- drift_data_JKI[[n]] <- drift_data
- }
- save(drift_data_JKI, file = "data/drift_data_JKI.RData")
-}
-
-# And this is the resulting data
-drift_data_JKI
-}
-\keyword{datasets}
-

Contact - Imprint