diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-05-16 15:43:50 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-05-16 15:43:50 +0200 |
| commit | 36036b5901223591e7e21e8b73d8cd1fb034f4cb (patch) | |
| tree | ed8e764778aa2e94b785263d18d7d8e3dfe4e785 /docs/reference/drift_data_JKI.html | |
| parent | d042f8f06b313e8595087587455daac73d84f17b (diff) | |
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
Diffstat (limited to 'docs/reference/drift_data_JKI.html')
| -rw-r--r-- | docs/reference/drift_data_JKI.html | 44 |
1 files changed, 23 insertions, 21 deletions
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 @@ <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Deposition from spray drift expressed as percent of the applied dose as - — drift_data_JKI • pfm</title> +published by the JKI — drift_data_JKI • pfm</title> <!-- jquery --> <script src="https://code.jquery.com/jquery-3.1.0.min.js" integrity="sha384-nrOSfDHtoPMzJHjVTdCopGqIqeYETSXhZDFyniQ8ZHcVy08QesyHcnOUpMpqnmWq" crossorigin="anonymous"></script> @@ -26,12 +26,14 @@ <script src="../pkgdown.js"></script> <!-- mathjax --> -<script src='https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML'></script> +<script src='https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML'></script> <!--[if lt IE 9]> <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script> <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script> <![endif]--> + + </head> <body> @@ -68,7 +70,7 @@ <div class="col-md-9 contents"> <div class="page-header"> <h1>Deposition from spray drift expressed as percent of the applied dose as -</h1> +published by the JKI</h1> </div> @@ -85,7 +87,7 @@ data for field crops (Ackerbau), and Pome/stone fruit, early and late <h2 class="hasAnchor" id="source"><a class="anchor" href="#source"></a>Source</h2> - <p>JKI (2010) Spreadsheet 'Tabelle der Abdrifteckwerte.xls', retrieved + <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> @@ -99,23 +101,23 @@ as its licence is not clear.</p> <h2 class="hasAnchor" id="examples"><a class="anchor" href="#examples"></a>Examples</h2> <pre class="examples"><div class='input'> -<span class='co'>## Not run: ------------------------------------</span> -<span class='co'># # This is the code that was used to extract the data</span> -<span class='co'># library(readxl)</span> -<span class='co'># abdrift_path <- "inst/extdata/Tabelle der Abdrifteckwerte.xls"</span> -<span class='co'># JKI_crops <- c("Ackerbau", "Obstbau frueh", "Obstbau spaet")</span> -<span class='co'># names(JKI_crops) <- c("Field crops", "Pome/stone fruit, early", "Pome/stone fruit, late")</span> -<span class='co'># drift_data_JKI <- list()</span> -<span class='co'># </span> -<span class='co'># for (n in 1:8) {</span> -<span class='co'># drift_data_raw <- read_excel(abdrift_path, sheet = n + 1, skip = 2)</span> -<span class='co'># drift_data <- as.matrix(drift_data_raw[1:9, 2:4]) </span> -<span class='co'># dimnames(drift_data) <- list(distance = as.integer(drift_data_raw[1:9, 1]),</span> -<span class='co'># crop = JKI_crops)</span> -<span class='co'># drift_data_JKI[[n]] <- drift_data</span> -<span class='co'># }</span> -<span class='co'># save(drift_data_JKI, file = "data/drift_data_JKI.RData")</span> -<span class='co'>## ---------------------------------------------</span> +<span class='fu'>not_run</span>({ + <span class='co'># This is the code that was used to extract the data</span> + <span class='fu'>library</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'>c</span>(<span class='st'>"Ackerbau"</span>, <span class='st'>"Obstbau frueh"</span>, <span class='st'>"Obstbau spaet"</span>) + <span class='fu'>names</span>(<span class='no'>JKI_crops</span>) <span class='kw'><-</span> <span class='fu'>c</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'>drift_data_JKI</span> <span class='kw'><-</span> <span class='fu'>list</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'>read_excel</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'>as.matrix</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'>dimnames</span>(<span class='no'>drift_data</span>) <span class='kw'><-</span> <span class='fu'>list</span>(<span class='kw'>distance</span> <span class='kw'>=</span> <span class='fu'>as.integer</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='kw'>crop</span> <span class='kw'>=</span> <span class='no'>JKI_crops</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='fu'>save</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'># And this is the resulting data</span> <span class='no'>drift_data_JKI</span></div><div class='output co'>#> [[1]] |