diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2016-09-27 23:00:48 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2016-09-27 23:00:48 +0200 |
| commit | 12a31f4c130c551f82232d9ef7dfb608bd52c53f (patch) | |
| tree | 2525ab1ea4102a6edddbd0c2f03f4a851bf2f9c5 /pkg/man/drift_data_JKI.Rd | |
| parent | 0d958ab6f84b569b5437f231c56004890c4ae23b (diff) | |
Reorganise repository using standard package layout
Diffstat (limited to 'pkg/man/drift_data_JKI.Rd')
| -rw-r--r-- | pkg/man/drift_data_JKI.Rd | 50 |
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} - |
