From aed160d7f0eaf5865e2bd9bf6c4b1c9d7b13d911 Mon Sep 17 00:00:00 2001 From: Ranke Johannes Date: Wed, 31 Jan 2024 13:16:17 +0100 Subject: Reorganise data generation - Use inst/data_generation for R code generating data as in some of my other packages - data/*.RData files were checked using https://github.com/jranke/dotfiles/blob/main/bin/rda_diff contents were not changed - Remove ChangeLog, the history is in the git logs - Update docs and some links contained therein - use \doi{} markup - Move logs to log directory --- R/EFSA_GW_interception_2014.R | 30 +----------------------------- 1 file changed, 1 insertion(+), 29 deletions(-) (limited to 'R/EFSA_GW_interception_2014.R') diff --git a/R/EFSA_GW_interception_2014.R b/R/EFSA_GW_interception_2014.R index 15d7835..386fddf 100644 --- a/R/EFSA_GW_interception_2014.R +++ b/R/EFSA_GW_interception_2014.R @@ -9,33 +9,5 @@ #' \bold{12}(5):3662, 37 pp., doi:10.2903/j.efsa.2014.3662 #' @format A matrix containing interception values, currently only for some selected crops #' @examples -#' \dontrun{ -#' # This is the code that was used to define the data -#' bbch <- paste0(0:9, "x") -#' crops <- c( -#' "Beans (field + vegetable)", -#' "Peas", -#' "Summer oilseed rape", "Winter oilseed rape", -#' "Tomatoes", -#' "Spring cereals", "Winter cereals") -#' EFSA_GW_interception_2014 <- matrix(NA, length(crops), length(bbch), -#' dimnames = list(Crop = crops, BBCH = bbch)) -#' EFSA_GW_interception_2014["Beans (field + vegetable)", ] <- -#' c(0, 0.25, rep(0.4, 2), rep(0.7, 5), 0.8) -#' EFSA_GW_interception_2014["Peas", ] <- -#' c(0, 0.35, rep(0.55, 2), rep(0.85, 5), 0.85) -#' EFSA_GW_interception_2014["Summer oilseed rape", ] <- -#' c(0, 0.4, rep(0.8, 2), rep(0.8, 5), 0.9) -#' EFSA_GW_interception_2014["Winter oilseed rape", ] <- -#' c(0, 0.4, rep(0.8, 2), rep(0.8, 5), 0.9) -#' EFSA_GW_interception_2014["Tomatoes", ] <- -#' c(0, 0.5, rep(0.7, 2), rep(0.8, 5), 0.5) -#' EFSA_GW_interception_2014["Spring cereals", ] <- -#' c(0, 0, 0.2, 0.8, rep(0.9, 3), rep(0.8, 2), 0.8) -#' EFSA_GW_interception_2014["Winter cereals", ] <- -#' c(0, 0, 0.2, 0.8, rep(0.9, 3), rep(0.8, 2), 0.8) -#' save(EFSA_GW_interception_2014, -#' file = "../data/EFSA_GW_interception_2014.RData") -#' } #' EFSA_GW_interception_2014 -NULL +"EFSA_GW_interception_2014" -- cgit v1.2.1