From 803fe13e505960fddccdbd4dcb524715f5eb068d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 18 Sep 2019 18:18:40 +0200 Subject: Add url: tag to _pkgdown.yml, typo, update docs --- docs/reference/drift_data_JKI.html | 66 ++++++++++++++++++++------------------ 1 file changed, 35 insertions(+), 31 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 9c14f54..665cb83 100644 --- a/docs/reference/drift_data_JKI.html +++ b/docs/reference/drift_data_JKI.html @@ -17,13 +17,15 @@ published by the JKI — drift_data_JKI • pfm - + + - - + + + @@ -50,6 +52,7 @@ published by the German Julius-Kühn Institute (JKI)." /> + @@ -74,7 +77,7 @@ published by the German Julius-Kühn Institute (JKI)." /> @@ -97,6 +95,7 @@ published by the German Julius-Kühn Institute (JKI)." /> +
@@ -104,7 +103,7 @@ published by the German Julius-Kühn Institute (JKI)." />

Deposition from spray drift expressed as percent of the applied dose as published by the JKI

- Source: R/drift_data_JKI.R +
@@ -151,50 +150,51 @@ included.

Examples


-
# NOT RUN {
+if (FALSE) {
   # This is the code that was used to extract the data
-  library(readxl)
+  library(readxl)
   abdrift_path <- "inst/extdata/Tabelle der Abdrifteckwerte.xls"
-  JKI_crops <- c("Ackerbau", "Obstbau frueh", "Obstbau spaet", "Weinbau frueh", "Weinbau spaet",
+  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",
+  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()
+  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],
+    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, ])
+      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[, 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[[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[[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[[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[[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[[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[[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[[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)
+  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")
-# }

+  save(drift_data_JKI, file = "data/drift_data_JKI.RData")
+}
+
 # And this is the resulting data
 drift_data_JKI
#> [[1]]
 #>         crop
@@ -405,19 +405,23 @@ included.
+ + + -- cgit v1.2.1