From 36036b5901223591e7e21e8b73d8cd1fb034f4cb Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 16 May 2017 15:43:50 +0200 Subject: Finish the Step 1 calculator including tests Some cleaning up. PELMO facilities do not currently work at my end, as I have no working wine installation on this computer --- docs/reference/drift_data_JKI.html | 44 ++++++++++++++++++++------------------ 1 file changed, 23 insertions(+), 21 deletions(-) (limited to 'docs/reference/drift_data_JKI.html') diff --git a/docs/reference/drift_data_JKI.html b/docs/reference/drift_data_JKI.html index 527c1cb..b85dae6 100644 --- a/docs/reference/drift_data_JKI.html +++ b/docs/reference/drift_data_JKI.html @@ -7,7 +7,7 @@ Deposition from spray drift expressed as percent of the applied dose as - — drift_data_JKI • pfm +published by the JKI — drift_data_JKI • pfm @@ -26,12 +26,14 @@ - + + + @@ -68,7 +70,7 @@

Deposition from spray drift expressed as percent of the applied dose as -

+published by the JKI
@@ -85,7 +87,7 @@ data for field crops (Ackerbau), and Pome/stone fruit, early and late

Source

-

JKI (2010) Spreadsheet 'Tabelle der Abdrifteckwerte.xls', retrieved +

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

@@ -99,23 +101,23 @@ as its licence is not clear.

Examples


-## Not run: ------------------------------------
-#   # 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")
-## ---------------------------------------------
+not_run({
+    # 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
#> [[1]]
-- 
cgit v1.2.1