diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-04-26 13:33:27 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-04-26 13:33:27 +0200 |
| commit | 45f540ef19fd2a2a80e3f3f72950933ed6396f0c (patch) | |
| tree | 7206ecb13fc6448d0f6a0b1fe23aeb43b7f40a55 | |
| parent | 451b332c8888bac8279340b086abb3b714ac3ae1 (diff) | |
Another take on completing the drift data
The R script I used yesterday got lost because I used the .Rd file
that got overwritten by roxygen later.
42 files changed, 352 insertions, 307 deletions
@@ -1,3 +1,11 @@ +commit 451b332c8888bac8279340b086abb3b714ac3ae1 +Author: Johannes Ranke <jranke@uni-bremen.de> +Date: 2019-04-25 11:50:35 +0200 + + Add more drift data, especially 3 m field crop data + + To support Agroscope in doing lots of PEC calculations for Switzerland + commit 3bb842b93107dd6207610de1fe5b44be66779e4d Author: Johannes Ranke <jranke@uni-bremen.de> Date: 2019-04-25 10:25:56 +0200 diff --git a/DESCRIPTION b/DESCRIPTION index 34e1fc4..6272073 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: pfm Type: Package Title: Utilities for Pesticide Fate Modelling -Version: 0.5.4 -Date: 2019-04-25 +Version: 0.5.5 +Date: 2019-04-26 Authors@R: person("Johannes Ranke", email = "jranke@uni-bremen.de", role = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0003-4371-6538")) diff --git a/R/drift_data_JKI.R b/R/drift_data_JKI.R index 888d3b5..5c500c9 100644 --- a/R/drift_data_JKI.R +++ b/R/drift_data_JKI.R @@ -1,14 +1,26 @@ #' Deposition from spray drift expressed as percent of the applied dose as #' published by the JKI -#' +#' #' Deposition from spray drift expressed as percent of the applied dose as #' published by the German Julius-Kühn Institute (JKI). -#' +#' #' 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. +#' #' @name drift_data_JKI #' @docType data #' @format A list currently containing matrices with spray drift percentage @@ -18,27 +30,57 @@ #' 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 #' @keywords datasets #' @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") +#' 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 <- as.matrix(drift_data_raw[1:9, 2:4]) -#' dimnames(drift_data) <- list(distance = as.integer(drift_data_raw[1:9, 1]), +#' 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 NULL @@ -7,5 +7,5 @@ Removed empty directory ‘pfm/inst/testdata/SwashProjects/Project_1/MACRO’ Removed empty directory ‘pfm/inst/testdata/SwashProjects/Project_1’ Removed empty directory ‘pfm/inst/testdata/SwashProjects’ * looking to see if a ‘data/datalist’ file should be added -* building ‘pfm_0.5.4.tar.gz’ +* building ‘pfm_0.5.5.tar.gz’ diff --git a/data/drift_data_JKI.RData b/data/drift_data_JKI.RData Binary files differindex 7a21b24..84b5fe5 100644 --- a/data/drift_data_JKI.RData +++ b/data/drift_data_JKI.RData diff --git a/docs/authors.html b/docs/authors.html index 066d25f..c6b44d7 100644 --- a/docs/authors.html +++ b/docs/authors.html @@ -60,7 +60,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/index.html b/docs/index.html index 0220e80..dc477c0 100644 --- a/docs/index.html +++ b/docs/index.html @@ -32,7 +32,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/FOCUS_GW_scenarios_2012.html b/docs/reference/FOCUS_GW_scenarios_2012.html index 722971a..43af2f5 100644 --- a/docs/reference/FOCUS_GW_scenarios_2012.html +++ b/docs/reference/FOCUS_GW_scenarios_2012.html @@ -64,7 +64,7 @@ soil definitions are from page 46ff. from FOCUS (2012)." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/FOCUS_Step_12_scenarios.html b/docs/reference/FOCUS_Step_12_scenarios.html index 53e0570..6eee86b 100644 --- a/docs/reference/FOCUS_Step_12_scenarios.html +++ b/docs/reference/FOCUS_Step_12_scenarios.html @@ -64,7 +64,7 @@ The text file is not included in the package as its licence is not clear." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/FOMC_actual_twa.html b/docs/reference/FOMC_actual_twa.html index 6826618..6cf1d49 100644 --- a/docs/reference/FOMC_actual_twa.html +++ b/docs/reference/FOMC_actual_twa.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/GUS.html b/docs/reference/GUS.html index 1a5da20..87a4ad6 100644 --- a/docs/reference/GUS.html +++ b/docs/reference/GUS.html @@ -65,7 +65,7 @@ $$GUS = \log_{10} DT50_{soil} (4 - \log_{10} K_{oc})$$" /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_FOMC_accu_rel.html b/docs/reference/PEC_FOMC_accu_rel.html index 2c3be54..86cc7b1 100644 --- a/docs/reference/PEC_FOMC_accu_rel.html +++ b/docs/reference/PEC_FOMC_accu_rel.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_soil.html b/docs/reference/PEC_soil.html index bef0f05..74f685b 100644 --- a/docs/reference/PEC_soil.html +++ b/docs/reference/PEC_soil.html @@ -67,7 +67,7 @@ and in the EFSA guidance on PEC soil calculations (EFSA, 2015, 2017)." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_soil_mets.html b/docs/reference/PEC_soil_mets.html index 5ca7de4..bb314b8 100644 --- a/docs/reference/PEC_soil_mets.html +++ b/docs/reference/PEC_soil_mets.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_sw_drainage_UK.html b/docs/reference/PEC_sw_drainage_UK.html index 609a524..204acbb 100644 --- a/docs/reference/PEC_sw_drainage_UK.html +++ b/docs/reference/PEC_sw_drainage_UK.html @@ -64,7 +64,7 @@ published on the CRC website" /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_sw_drift.html b/docs/reference/PEC_sw_drift.html index 829e949..77a36f4 100644 --- a/docs/reference/PEC_sw_drift.html +++ b/docs/reference/PEC_sw_drift.html @@ -65,7 +65,7 @@ with input via spray drift." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_sw_exposit_drainage.html b/docs/reference/PEC_sw_exposit_drainage.html index d496268..e24fd73 100644 --- a/docs/reference/PEC_sw_exposit_drainage.html +++ b/docs/reference/PEC_sw_exposit_drainage.html @@ -69,7 +69,7 @@ details, see the discussion of the function arguments below." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_sw_exposit_runoff.html b/docs/reference/PEC_sw_exposit_runoff.html index c518de7..4d1b5de 100644 --- a/docs/reference/PEC_sw_exposit_runoff.html +++ b/docs/reference/PEC_sw_exposit_runoff.html @@ -64,7 +64,7 @@ in the worksheet "Konzept Runoff"." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_sw_focus.html b/docs/reference/PEC_sw_focus.html index 1152559..1f6172b 100644 --- a/docs/reference/PEC_sw_focus.html +++ b/docs/reference/PEC_sw_focus.html @@ -69,7 +69,7 @@ to be used with the FOCUS calculator." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/PEC_sw_sed.html b/docs/reference/PEC_sw_sed.html index 679af8d..ee1e8d1 100644 --- a/docs/reference/PEC_sw_sed.html +++ b/docs/reference/PEC_sw_sed.html @@ -66,7 +66,7 @@ PEC calculator" /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/SFO_actual_twa.html b/docs/reference/SFO_actual_twa.html index 16da2f9..f293e2d 100644 --- a/docs/reference/SFO_actual_twa.html +++ b/docs/reference/SFO_actual_twa.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/SSLRC_mobility_classification.html b/docs/reference/SSLRC_mobility_classification.html index 6228b14..fb5e139 100644 --- a/docs/reference/SSLRC_mobility_classification.html +++ b/docs/reference/SSLRC_mobility_classification.html @@ -64,7 +64,7 @@ checked against the spreadsheet published on the CRC website" /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/TOXSWA_cwa.html b/docs/reference/TOXSWA_cwa.html index c6e0e64..45370f1 100644 --- a/docs/reference/TOXSWA_cwa.html +++ b/docs/reference/TOXSWA_cwa.html @@ -64,7 +64,7 @@ Usually, an instance of this class will be generated by read.TOXSWA_cwa." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/chent_focus_sw.html b/docs/reference/chent_focus_sw.html index 24745a4..5348f54 100644 --- a/docs/reference/chent_focus_sw.html +++ b/docs/reference/chent_focus_sw.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/drift_data_JKI.html b/docs/reference/drift_data_JKI.html index 3e9e367..e2cfcb8 100644 --- a/docs/reference/drift_data_JKI.html +++ b/docs/reference/drift_data_JKI.html @@ -66,7 +66,7 @@ published by the German Julius-Kühn Institute (JKI)." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> @@ -127,13 +127,26 @@ data for field crops (Ackerbau), and Pome/stone fruit, early and late <p>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</p> +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</p> <h2 class="hasAnchor" id="details"><a class="anchor" href="#details"></a>Details</h2> <p>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.</p> +<p>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.</p> +<p>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).</p> +<p>Values for non-professional use listed in the JKI spreadsheet were not +included.</p> <h2 class="hasAnchor" id="examples"><a class="anchor" href="#examples"></a>Examples</h2> @@ -142,299 +155,238 @@ as its licence is not clear.</p> <span class='co'># This is the code that was used to extract the data</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/library'>library</a></span>(<span class='no'>readxl</span>) <span class='no'>abdrift_path</span> <span class='kw'><-</span> <span class='st'>"inst/extdata/Tabelle der Abdrifteckwerte.xls"</span> - <span class='no'>JKI_crops</span> <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='st'>"Ackerbau"</span>, <span class='st'>"Obstbau frueh"</span>, <span class='st'>"Obstbau spaet"</span>) - <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/names'>names</a></span>(<span class='no'>JKI_crops</span>) <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='st'>"Field crops"</span>, <span class='st'>"Pome/stone fruit, early"</span>, <span class='st'>"Pome/stone fruit, late"</span>) + <span class='no'>JKI_crops</span> <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='st'>"Ackerbau"</span>, <span class='st'>"Obstbau frueh"</span>, <span class='st'>"Obstbau spaet"</span>, <span class='st'>"Weinbau frueh"</span>, <span class='st'>"Weinbau spaet"</span>, + <span class='st'>"Hopfenbau"</span>, <span class='st'>"Flaechenkulturen > 900 l/ha"</span>, <span class='st'>"Gleisanlagen"</span>) + <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/names'>names</a></span>(<span class='no'>JKI_crops</span>) <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='st'>"Field crops"</span>, <span class='st'>"Pome/stone fruit, early"</span>, <span class='st'>"Pome/stone fruit, late"</span>, + <span class='st'>"Vines early"</span>, <span class='st'>"Vines late"</span>, <span class='st'>"Hops"</span>, <span class='st'>"Areic cultures > 900 L/ha"</span>, <span class='st'>"Railroad tracks"</span>) <span class='no'>drift_data_JKI</span> <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/list'>list</a></span>() <span class='kw'>for</span> (<span class='no'>n</span> <span class='kw'>in</span> <span class='fl'>1</span>:<span class='fl'>8</span>) { <span class='no'>drift_data_raw</span> <span class='kw'><-</span> <span class='fu'><a href='https://readxl.tidyverse.org/reference/read_excel.html'>read_excel</a></span>(<span class='no'>abdrift_path</span>, <span class='kw'>sheet</span> <span class='kw'>=</span> <span class='no'>n</span> + <span class='fl'>1</span>, <span class='kw'>skip</span> <span class='kw'>=</span> <span class='fl'>2</span>) - <span class='no'>drift_data</span> <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/matrix'>as.matrix</a></span>(<span class='no'>drift_data_raw</span>[<span class='fl'>1</span>:<span class='fl'>9</span>, <span class='fl'>2</span>:<span class='fl'>4</span>]) - <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/dimnames'>dimnames</a></span>(<span class='no'>drift_data</span>) <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/list'>list</a></span>(<span class='kw'>distance</span> <span class='kw'>=</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/integer'>as.integer</a></span>(<span class='no'>drift_data_raw</span>[<span class='fl'>1</span>:<span class='fl'>9</span>, <span class='fl'>1</span>]), + <span class='no'>drift_data</span> <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/matrix'>matrix</a></span>(<span class='fl'>NA</span>, <span class='kw'>nrow</span> <span class='kw'>=</span> <span class='fl'>9</span>, <span class='kw'>ncol</span> <span class='kw'>=</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/length'>length</a></span>(<span class='no'>JKI_crops</span>)) + <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/dimnames'>dimnames</a></span>(<span class='no'>drift_data</span>) <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/list'>list</a></span>(<span class='kw'>distance</span> <span class='kw'>=</span> <span class='no'>drift_data_raw</span><span class='kw'>[[</span><span class='fl'>1</span>]][<span class='fl'>1</span>:<span class='fl'>9</span>], <span class='kw'>crop</span> <span class='kw'>=</span> <span class='no'>JKI_crops</span>) + <span class='kw'>if</span> (<span class='no'>n</span> <span class='kw'>==</span> <span class='fl'>1</span>) { <span class='co'># Values for railroad tracks only present for one application</span> + <span class='no'>drift_data</span>[, <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>1</span>:<span class='fl'>3</span>, <span class='fl'>5</span>:<span class='fl'>8</span>)] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/matrix'>as.matrix</a></span>(<span class='no'>drift_data_raw</span>[<span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>2</span>:<span class='fl'>7</span>, <span class='fl'>11</span>)][<span class='fl'>1</span>:<span class='fl'>9</span>, ]) + } <span class='kw'>else</span> { + <span class='no'>drift_data</span>[, <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>1</span>:<span class='fl'>3</span>, <span class='fl'>5</span>:<span class='fl'>7</span>)] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/matrix'>as.matrix</a></span>(<span class='no'>drift_data_raw</span>[<span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>2</span>:<span class='fl'>7</span>)][<span class='fl'>1</span>:<span class='fl'>9</span>, ]) + } <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='no'>n</span>]] <span class='kw'><-</span> <span class='no'>drift_data</span> } + + <span class='co'># Manual data entry from the Rautmann paper</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>1</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.95</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>1</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.7</span>, <span class='fl'>1.18</span>, <span class='fl'>0.39</span>, <span class='fl'>0.2</span>, <span class='fl'>0.13</span>, <span class='fl'>0.07</span>, <span class='fl'>0.04</span>, <span class='fl'>0.03</span>) + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>2</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.79</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>2</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.53</span>, <span class='fl'>1.09</span>, <span class='fl'>0.35</span>, <span class='fl'>0.18</span>, <span class='fl'>0.11</span>, <span class='fl'>0.06</span>, <span class='fl'>0.03</span>, <span class='fl'>0.02</span>) + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>3</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.68</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>3</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.49</span>, <span class='fl'>1.04</span>, <span class='fl'>0.32</span>, <span class='fl'>0.16</span>, <span class='fl'>0.10</span>, <span class='fl'>0.05</span>, <span class='fl'>0.03</span>, <span class='fl'>0.02</span>) + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>4</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.62</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>4</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.44</span>, <span class='fl'>1.02</span>, <span class='fl'>0.31</span>, <span class='fl'>0.16</span>, <span class='fl'>0.10</span>, <span class='fl'>0.05</span>, <span class='fl'>0.03</span>, <span class='fl'>0.02</span>) + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>5</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.59</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>5</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.37</span>, <span class='fl'>1.00</span>, <span class='fl'>0.31</span>, <span class='fl'>0.15</span>, <span class='fl'>0.09</span>, <span class='fl'>0.05</span>, <span class='fl'>0.03</span>, <span class='fl'>0.02</span>) + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>6</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.56</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>6</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.29</span>, <span class='fl'>0.97</span>, <span class='fl'>0.30</span>, <span class='fl'>0.15</span>, <span class='fl'>0.09</span>, <span class='fl'>0.05</span>, <span class='fl'>0.03</span>, <span class='fl'>0.02</span>) + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>7</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.55</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>7</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.24</span>, <span class='fl'>0.94</span>, <span class='fl'>0.29</span>, <span class='fl'>0.15</span>, <span class='fl'>0.09</span>, <span class='fl'>0.05</span>, <span class='fl'>0.03</span>, <span class='fl'>0.02</span>) + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>8</span>]][<span class='st'>"3"</span>, <span class='st'>"Ackerbau"</span>] <span class='kw'><-</span> <span class='fl'>0.52</span> + <span class='no'>drift_data_JKI</span><span class='kw'>[[</span><span class='fl'>8</span>]][, <span class='st'>"Weinbau frueh"</span>] <span class='kw'><-</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/c'>c</a></span>(<span class='fl'>NA</span>, <span class='fl'>2.16</span>, <span class='fl'>0.91</span>, <span class='fl'>0.28</span>, <span class='fl'>0.14</span>, <span class='fl'>0.09</span>, <span class='fl'>0.04</span>, <span class='fl'>0.03</span>, <span class='fl'>0.02</span>) + + <span class='co'># Save the data</span> <span class='fu'><a href='https://www.rdocumentation.org/packages/base/topics/save'>save</a></span>(<span class='no'>drift_data_JKI</span>, <span class='kw'>file</span> <span class='kw'>=</span> <span class='st'>"data/drift_data_JKI.RData"</span>) <span class='co'># }</span><div class='input'> <span class='co'># And this is the resulting data</span> <span class='no'>drift_data_JKI</span></div><div class='output co'>#> [[1]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 2.77 NA NA NA NA -#> 3 0.95 29.20 15.73 8.02 19.33 -#> 5 0.57 19.89 8.41 3.62 11.57 -#> 10 0.29 11.81 3.60 1.23 5.77 -#> 15 0.20 5.55 1.81 0.65 3.84 -#> 20 0.15 2.77 1.09 0.42 1.79 -#> 30 0.10 1.04 0.54 0.22 0.56 -#> 40 0.07 0.52 0.32 0.14 0.25 -#> 50 0.06 0.30 0.22 0.10 0.13 -#> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 4.440 2.77 -#> 3 NA NA -#> 5 0.180 0.57 -#> 10 0.050 0.29 -#> 15 0.020 0.20 -#> 20 0.012 0.15 -#> 30 0.005 0.10 -#> 40 0.003 0.07 -#> 50 0.002 0.06 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 2.77 NA NA NA NA +#> 3 0.95 29.20 15.73 2.70 8.02 +#> 5 0.57 19.89 8.41 1.18 3.62 +#> 10 0.29 11.81 3.60 0.39 1.23 +#> 15 0.20 5.55 1.81 0.20 0.65 +#> 20 0.15 2.77 1.09 0.13 0.42 +#> 30 0.10 1.04 0.54 0.07 0.22 +#> 40 0.07 0.52 0.32 0.04 0.14 +#> 50 0.06 0.30 0.22 0.03 0.10 #> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 0.039 NA NA -#> 3 NA 8.02 0.018721696 -#> 5 0.005 3.62 0.014363896 -#> 10 NA 1.23 0.010026007 -#> 15 NA 0.65 0.008124366 -#> 20 NA 0.42 0.006998158 -#> 30 NA 0.22 0.005670811 -#> 40 NA 0.14 NA -#> 50 NA 0.10 0.004350831 +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 4.440 NA +#> 3 19.33 NA 0.018721696 +#> 5 11.57 0.180 0.014363896 +#> 10 5.77 0.050 0.010026007 +#> 15 3.84 0.020 0.008124366 +#> 20 1.79 0.012 0.006998158 +#> 30 0.56 0.005 0.005670811 +#> 40 0.25 0.003 NA +#> 50 0.13 0.002 0.004350831 #> #> [[2]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 2.38 NA NA NA NA -#> 3 0.79 25.53 12.13 7.23 17.73 -#> 5 0.47 16.87 6.81 3.22 9.60 -#> 10 0.24 9.61 3.11 1.07 4.18 -#> 15 0.16 5.61 1.58 0.56 2.57 -#> 20 0.12 2.59 0.90 0.36 1.21 -#> 30 0.08 0.87 0.40 0.19 0.38 -#> 40 0.06 0.40 0.23 0.12 0.17 -#> 50 0.05 0.22 0.15 0.08 0.09 -#> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 3.780 2.38 -#> 3 NA NA -#> 5 0.160 0.47 -#> 10 0.040 0.24 -#> 15 0.020 0.16 -#> 20 0.011 0.12 -#> 30 0.005 0.08 -#> 40 0.003 0.06 -#> 50 0.002 0.05 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 2.38 NA NA NA NA +#> 3 0.79 25.53 12.13 2.53 7.23 +#> 5 0.47 16.87 6.81 1.09 3.22 +#> 10 0.24 9.61 3.11 0.35 1.07 +#> 15 0.16 5.61 1.58 0.18 0.56 +#> 20 0.12 2.59 0.90 0.11 0.36 +#> 30 0.08 0.87 0.40 0.06 0.19 +#> 40 0.06 0.40 0.23 0.03 0.12 +#> 50 0.05 0.22 0.15 0.02 0.08 #> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 NA 0.1900 NA -#> 3 7.23 NA 2.120 -#> 5 3.22 0.0100 0.470 -#> 10 1.07 0.0030 0.060 -#> 15 0.56 0.0010 0.020 -#> 20 0.36 0.0008 0.008 -#> 30 0.19 NA NA -#> 40 0.12 NA NA -#> 50 0.08 NA NA +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 3.780 NA +#> 3 17.73 NA NA +#> 5 9.60 0.160 NA +#> 10 4.18 0.040 NA +#> 15 2.57 0.020 NA +#> 20 1.21 0.011 NA +#> 30 0.38 0.005 NA +#> 40 0.17 0.003 NA +#> 50 0.09 0.002 NA #> #> [[3]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 2.01 NA NA NA NA -#> 3 0.68 23.96 11.01 6.90 15.93 -#> 5 0.41 15.79 6.04 3.07 8.57 -#> 10 0.20 8.96 2.67 1.02 3.70 -#> 15 0.14 4.24 1.39 0.54 2.26 -#> 20 0.10 2.01 0.80 0.34 1.05 -#> 30 0.07 0.70 0.36 0.18 0.34 -#> 40 0.05 0.33 0.21 0.11 0.15 -#> 50 0.04 0.19 0.13 0.08 0.08 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 2.01 NA NA NA NA +#> 3 0.68 23.96 11.01 2.49 6.90 +#> 5 0.41 15.79 6.04 1.04 3.07 +#> 10 0.20 8.96 2.67 0.32 1.02 +#> 15 0.14 4.24 1.39 0.16 0.54 +#> 20 0.10 2.01 0.80 0.10 0.34 +#> 30 0.07 0.70 0.36 0.05 0.18 +#> 40 0.05 0.33 0.21 0.03 0.11 +#> 50 0.04 0.19 0.13 0.02 0.08 #> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 3.420 2.01 -#> 3 NA NA -#> 5 0.150 0.41 -#> 10 0.040 0.20 -#> 15 0.020 0.14 -#> 20 0.010 0.10 -#> 30 0.004 0.07 -#> 40 0.003 0.05 -#> 50 0.002 0.04 -#> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 NA 0.1400 NA -#> 3 6.90 NA 1.590 -#> 5 3.07 0.0100 0.360 -#> 10 1.02 0.0020 0.050 -#> 15 0.54 0.0010 0.010 -#> 20 0.34 0.0006 0.006 -#> 30 0.18 NA NA -#> 40 0.11 NA NA -#> 50 0.08 NA NA +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 3.420 NA +#> 3 15.93 NA NA +#> 5 8.57 0.150 NA +#> 10 3.70 0.040 NA +#> 15 2.26 0.020 NA +#> 20 1.05 0.010 NA +#> 30 0.34 0.004 NA +#> 40 0.15 0.003 NA +#> 50 0.08 0.002 NA #> #> [[4]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 1.85 NA NA NA NA -#> 3 0.62 23.61 10.12 6.71 15.38 -#> 5 0.38 15.42 5.60 2.99 8.26 -#> 10 0.19 8.66 2.50 0.99 3.55 -#> 15 0.13 4.01 1.28 0.52 2.17 -#> 20 0.10 1.89 0.75 0.33 0.93 -#> 30 0.06 0.66 0.35 0.17 0.31 -#> 40 0.05 0.31 0.20 0.11 0.14 -#> 50 0.04 0.17 0.13 0.08 0.08 -#> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 2.290 1.85 -#> 3 NA NA -#> 5 0.120 0.38 -#> 10 0.030 0.19 -#> 15 0.020 0.13 -#> 20 0.009 0.10 -#> 30 0.004 0.06 -#> 40 0.002 0.05 -#> 50 0.002 0.04 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 1.85 NA NA NA NA +#> 3 0.62 23.61 10.12 2.44 6.71 +#> 5 0.38 15.42 5.60 1.02 2.99 +#> 10 0.19 8.66 2.50 0.31 0.99 +#> 15 0.13 4.01 1.28 0.16 0.52 +#> 20 0.10 1.89 0.75 0.10 0.33 +#> 30 0.06 0.66 0.35 0.05 0.17 +#> 40 0.05 0.31 0.20 0.03 0.11 +#> 50 0.04 0.17 0.13 0.02 0.08 #> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 NA 0.1300 NA -#> 3 6.71 NA 1.360 -#> 5 2.99 0.0100 0.310 -#> 10 0.99 0.0020 0.040 -#> 15 0.52 0.0010 0.010 -#> 20 0.33 0.0005 0.005 -#> 30 0.17 NA NA -#> 40 0.11 NA NA -#> 50 0.08 NA NA +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 2.290 NA +#> 3 15.38 NA NA +#> 5 8.26 0.120 NA +#> 10 3.55 0.030 NA +#> 15 2.17 0.020 NA +#> 20 0.93 0.009 NA +#> 30 0.31 0.004 NA +#> 40 0.14 0.002 NA +#> 50 0.08 0.002 NA #> #> [[5]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 1.75 NA NA NA NA -#> 3 0.59 23.12 9.74 6.59 15.12 -#> 5 0.36 15.06 5.41 2.93 7.99 -#> 10 0.18 8.42 2.43 0.98 3.36 -#> 15 0.12 3.83 1.24 0.51 2.03 -#> 20 0.09 1.81 0.72 0.33 0.88 -#> 30 0.06 0.63 0.34 0.17 0.29 -#> 40 0.05 0.30 0.20 0.11 0.14 -#> 50 0.04 0.17 0.13 0.08 0.07 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 1.75 NA NA NA NA +#> 3 0.59 23.12 9.74 2.37 6.59 +#> 5 0.36 15.06 5.41 1.00 2.93 +#> 10 0.18 8.42 2.43 0.31 0.98 +#> 15 0.12 3.83 1.24 0.15 0.51 +#> 20 0.09 1.81 0.72 0.09 0.33 +#> 30 0.06 0.63 0.34 0.05 0.17 +#> 40 0.05 0.30 0.20 0.03 0.11 +#> 50 0.04 0.17 0.13 0.02 0.08 #> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 2.120 1.75 -#> 3 NA NA -#> 5 0.110 0.36 -#> 10 0.030 0.18 -#> 15 0.010 0.12 -#> 20 0.008 0.09 -#> 30 0.004 0.06 -#> 40 0.002 0.05 -#> 50 0.002 0.04 -#> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 NA 0.1200 NA -#> 3 6.59 NA 1.190 -#> 5 2.93 0.0100 0.270 -#> 10 0.98 0.0020 0.040 -#> 15 0.51 0.0010 0.010 -#> 20 0.33 0.0005 0.005 -#> 30 0.17 NA NA -#> 40 0.11 NA NA -#> 50 0.08 NA NA +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 2.120 NA +#> 3 15.12 NA NA +#> 5 7.99 0.110 NA +#> 10 3.36 0.030 NA +#> 15 2.03 0.010 NA +#> 20 0.88 0.008 NA +#> 30 0.29 0.004 NA +#> 40 0.14 0.002 NA +#> 50 0.07 0.002 NA #> #> [[6]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 1.64 NA NA NA NA -#> 3 0.56 22.76 9.21 6.41 14.90 -#> 5 0.34 14.64 5.18 2.85 7.79 -#> 10 0.17 8.04 2.38 0.95 3.23 -#> 15 0.11 3.71 1.20 0.50 1.93 -#> 20 0.09 1.75 0.68 0.32 0.83 -#> 30 0.06 0.61 0.31 0.17 0.28 -#> 40 0.04 0.29 0.17 0.11 0.13 -#> 50 0.03 0.16 0.11 0.07 0.07 -#> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 1.980 1.64 -#> 3 NA NA -#> 5 0.100 0.34 -#> 10 0.030 0.17 -#> 15 0.010 0.11 -#> 20 0.008 0.09 -#> 30 0.004 0.06 -#> 40 0.002 0.04 -#> 50 0.001 0.03 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 1.64 NA NA NA NA +#> 3 0.56 22.76 9.21 2.29 6.41 +#> 5 0.34 14.64 5.18 0.97 2.85 +#> 10 0.17 8.04 2.38 0.30 0.95 +#> 15 0.11 3.71 1.20 0.15 0.50 +#> 20 0.09 1.75 0.68 0.09 0.32 +#> 30 0.06 0.61 0.31 0.05 0.17 +#> 40 0.04 0.29 0.17 0.03 0.11 +#> 50 0.03 0.16 0.11 0.02 0.07 #> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 NA 0.1100 NA -#> 3 6.41 NA 1.070 -#> 5 2.85 0.0100 0.250 -#> 10 0.95 0.0020 0.030 -#> 15 0.50 0.0010 0.010 -#> 20 0.32 0.0004 0.005 -#> 30 0.17 NA NA -#> 40 0.11 NA NA -#> 50 0.07 NA NA +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 1.980 NA +#> 3 14.90 NA NA +#> 5 7.79 0.100 NA +#> 10 3.23 0.030 NA +#> 15 1.93 0.010 NA +#> 20 0.83 0.008 NA +#> 30 0.28 0.004 NA +#> 40 0.13 0.002 NA +#> 50 0.07 0.001 NA #> #> [[7]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 1.61 NA NA NA NA -#> 3 0.55 22.69 9.10 6.33 14.63 -#> 5 0.33 14.45 5.11 2.81 7.60 -#> 10 0.17 7.83 2.33 0.94 3.13 -#> 15 0.11 3.62 1.20 0.49 1.86 -#> 20 0.08 1.71 0.67 0.31 0.81 -#> 30 0.06 0.60 0.30 0.16 0.26 -#> 40 0.04 0.28 0.17 0.10 0.12 -#> 50 0.03 0.16 0.11 0.07 0.06 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 1.61 NA NA NA NA +#> 3 0.55 22.69 9.10 2.24 6.33 +#> 5 0.33 14.45 5.11 0.94 2.81 +#> 10 0.17 7.83 2.33 0.29 0.94 +#> 15 0.11 3.62 1.20 0.15 0.49 +#> 20 0.08 1.71 0.67 0.09 0.31 +#> 30 0.06 0.60 0.30 0.05 0.16 +#> 40 0.04 0.28 0.17 0.03 0.10 +#> 50 0.03 0.16 0.11 0.02 0.07 #> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 1.930 1.61 -#> 3 NA NA -#> 5 0.100 0.33 -#> 10 0.030 0.17 -#> 15 0.010 0.11 -#> 20 0.008 0.08 -#> 30 0.004 0.06 -#> 40 0.002 0.04 -#> 50 0.001 0.03 -#> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 NA 0.1100 NA -#> 3 6.33 NA 0.960 -#> 5 2.81 0.0100 0.230 -#> 10 0.94 0.0020 0.030 -#> 15 0.49 0.0010 0.010 -#> 20 0.31 0.0004 0.004 -#> 30 0.16 NA NA -#> 40 0.10 NA NA -#> 50 0.07 NA NA +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 1.930 NA +#> 3 14.63 NA NA +#> 5 7.60 0.100 NA +#> 10 3.13 0.030 NA +#> 15 1.86 0.010 NA +#> 20 0.81 0.008 NA +#> 30 0.26 0.004 NA +#> 40 0.12 0.002 NA +#> 50 0.06 0.001 NA #> #> [[8]] #> crop -#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau Hopfenbau -#> 1 1.52 NA NA NA NA -#> 3 0.52 22.24 8.66 6.26 13.53 -#> 5 0.31 14.09 4.92 2.78 7.15 -#> 10 0.16 7.58 2.29 0.93 3.01 -#> 15 0.11 3.48 1.14 0.49 1.82 -#> 20 0.08 1.65 0.65 0.31 0.78 -#> 30 0.05 0.57 0.29 0.16 0.25 -#> 40 0.04 0.27 0.16 0.10 0.12 -#> 50 0.03 0.15 0.11 0.07 0.06 -#> crop -#> distance Flaechenkulturen > 900 l/ha Tragbar < 50 cm -#> 1 1.640 1.52 -#> 3 NA NA -#> 5 0.090 0.31 -#> 10 0.020 0.16 -#> 15 0.010 0.11 -#> 20 0.007 0.08 -#> 30 0.003 0.05 -#> 40 0.002 0.04 -#> 50 0.001 0.03 +#> distance Ackerbau Obstbau frueh Obstbau spaet Weinbau frueh Weinbau spaet +#> 1 1.52 NA NA NA NA +#> 3 0.52 22.24 8.66 2.16 6.26 +#> 5 0.31 14.09 4.92 0.91 2.78 +#> 10 0.16 7.58 2.29 0.28 0.93 +#> 15 0.11 3.48 1.14 0.14 0.49 +#> 20 0.08 1.65 0.65 0.09 0.31 +#> 30 0.05 0.57 0.29 0.04 0.16 +#> 40 0.04 0.27 0.16 0.03 0.10 +#> 50 0.03 0.15 0.11 0.02 0.07 #> crop -#> distance Tragbar < 50 cm mit Spritzschirm Tragbar > 50 cm Gleisanlagen -#> 1 NA 1e-01 NA -#> 3 6.26 NA 0.890 -#> 5 2.78 1e-02 0.210 -#> 10 0.93 1e-03 0.030 -#> 15 0.49 1e-03 0.010 -#> 20 0.31 4e-04 0.004 -#> 30 0.16 NA NA -#> 40 0.10 NA NA -#> 50 0.07 NA NA +#> distance Hopfenbau Flaechenkulturen > 900 l/ha Gleisanlagen +#> 1 NA 1.640 NA +#> 3 13.53 NA NA +#> 5 7.15 0.090 NA +#> 10 3.01 0.020 NA +#> 15 1.82 0.010 NA +#> 20 0.78 0.007 NA +#> 30 0.25 0.003 NA +#> 40 0.12 0.002 NA +#> 50 0.06 0.001 NA #> </div></pre> </div> <div class="col-md-3 hidden-xs hidden-sm" id="sidebar"> diff --git a/docs/reference/endpoint.html b/docs/reference/endpoint.html index d80194b..a789782 100644 --- a/docs/reference/endpoint.html +++ b/docs/reference/endpoint.html @@ -66,7 +66,7 @@ this function." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/geomean.html b/docs/reference/geomean.html index f08009b..07d3825 100644 --- a/docs/reference/geomean.html +++ b/docs/reference/geomean.html @@ -66,7 +66,7 @@ returns 0 if at least one element of the vector is 0." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/get_vertex.html b/docs/reference/get_vertex.html index 3aeccf4..c032778 100644 --- a/docs/reference/get_vertex.html +++ b/docs/reference/get_vertex.html @@ -64,7 +64,7 @@ https://stackoverflow.com/a/717791" /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/index.html b/docs/reference/index.html index ea17397..cb2d963 100644 --- a/docs/reference/index.html +++ b/docs/reference/index.html @@ -60,7 +60,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/max_twa.html b/docs/reference/max_twa.html index b5b4444..ceec7d1 100644 --- a/docs/reference/max_twa.html +++ b/docs/reference/max_twa.html @@ -67,7 +67,7 @@ max_twa." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/one_box.html b/docs/reference/one_box.html index 42f4541..61b8cc0 100644 --- a/docs/reference/one_box.html +++ b/docs/reference/one_box.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/perc_runoff_exposit.html b/docs/reference/perc_runoff_exposit.html index 38e61cc..1baa088 100644 --- a/docs/reference/perc_runoff_exposit.html +++ b/docs/reference/perc_runoff_exposit.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/perc_runoff_reduction_exposit.html b/docs/reference/perc_runoff_reduction_exposit.html index 56ccca8..2800d7e 100644 --- a/docs/reference/perc_runoff_reduction_exposit.html +++ b/docs/reference/perc_runoff_reduction_exposit.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/pfm_degradation.html b/docs/reference/pfm_degradation.html index 9c62bf7..011afaa 100644 --- a/docs/reference/pfm_degradation.html +++ b/docs/reference/pfm_degradation.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/plot.TOXSWA_cwa.html b/docs/reference/plot.TOXSWA_cwa.html index 31435e8..f73f297 100644 --- a/docs/reference/plot.TOXSWA_cwa.html +++ b/docs/reference/plot.TOXSWA_cwa.html @@ -64,7 +64,7 @@ segment of a TOXSWA surface water body." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/plot.one_box.html b/docs/reference/plot.one_box.html index 5bc6847..ce5ec03 100644 --- a/docs/reference/plot.one_box.html +++ b/docs/reference/plot.one_box.html @@ -63,7 +63,7 @@ </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/read.TOXSWA_cwa.html b/docs/reference/read.TOXSWA_cwa.html index 881aa87..30f8e01 100644 --- a/docs/reference/read.TOXSWA_cwa.html +++ b/docs/reference/read.TOXSWA_cwa.html @@ -68,7 +68,7 @@ renamed to ConLiqWatLay in the out file." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/sawtooth.html b/docs/reference/sawtooth.html index 39a2e99..d4a02c3 100644 --- a/docs/reference/sawtooth.html +++ b/docs/reference/sawtooth.html @@ -65,7 +65,7 @@ times, with an interval i." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/soil_scenario_data_EFSA_2015.html b/docs/reference/soil_scenario_data_EFSA_2015.html index 3a2f122..34277c2 100644 --- a/docs/reference/soil_scenario_data_EFSA_2015.html +++ b/docs/reference/soil_scenario_data_EFSA_2015.html @@ -65,7 +65,7 @@ scenario and model adjustment factors from p. 15 and p. 17 are included." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/soil_scenario_data_EFSA_2017.html b/docs/reference/soil_scenario_data_EFSA_2017.html index acbfceb..ce23654 100644 --- a/docs/reference/soil_scenario_data_EFSA_2017.html +++ b/docs/reference/soil_scenario_data_EFSA_2017.html @@ -65,7 +65,7 @@ scenario and model adjustment factors from p. 16 and p. 18 are included." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/docs/reference/twa.html b/docs/reference/twa.html index 9fdcc5f..ed6deb4 100644 --- a/docs/reference/twa.html +++ b/docs/reference/twa.html @@ -65,7 +65,7 @@ is after one window has passed." /> </button> <span class="navbar-brand"> <a class="navbar-link" href="../index.html">pfm</a> - <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.4</span> + <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Released version">0.5.5</span> </span> </div> diff --git a/man/drift_data_JKI.Rd b/man/drift_data_JKI.Rd index 5597b66..fcf4e6e 100644 --- a/man/drift_data_JKI.Rd +++ b/man/drift_data_JKI.Rd @@ -13,6 +13,9 @@ 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 @@ -22,6 +25,19 @@ published by the German Julius-Kühn Institute (JKI). 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{ @@ -29,17 +45,44 @@ as its licence is not clear. # 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") + 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 <- as.matrix(drift_data_raw[1:9, 2:4]) - dimnames(drift_data) <- list(distance = as.integer(drift_data_raw[1:9, 1]), + 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") } |