aboutsummaryrefslogtreecommitdiff
path: root/pkg/R/soil_scenario_data_EFSA_2015.R
blob: fb096bc8961990fc392cdc478f1d927d2487f050 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#' Properties of the predefined scenarios from the EFSA guidance from 2015
#' 
#' Properties of the predefined scenarios used at Tier 1, Tier 2A and Tier 3A for the 
#' concentration in soil as given in the EFSA guidance (2015, p. 13/14). Also, the 
#' scenario and model adjustment factors from p. 15 and p. 17 are included.
#' 
#' @name soil_scenario_data_EFSA_2015
#' @docType data
#' @format A data frame with one row for each scenario. Row names are the scenario codes, 
#'   e.g. CTN for the Northern scenario for the total concentration in soil. Columns are 
#'   mostly self-explanatory. \code{rho} is the dry bulk density of the top soil.
#' @source EFSA (European Food Safety Authority) (2015)
#' EFSA guidance document for predicting environmental concentrations
#' of active substances of plant protection products and transformation products of these
#' active substances in soil. \emph{EFSA Journal} \bold{13}(4) 4093
#' doi:10.2903/j.efsa.2015.4093
#' @keywords datasets
#' @examples
#' \dontrun{
#'   # This is the code that was used to define the data
#'   soil_scenario_data_EFSA_2015 <- data.frame(
#'     Zone = rep(c("North", "Central", "South"), 2),
#'     Country = c("Estonia", "Germany", "France", "Denmark", "Czech Republik", "Spain"),
#'     T_arit = c(4.7, 8.0, 11.0, 8.2, 9.1, 12.8),
#'     T_arr = c(7.0, 10.1, 12.3, 9.8, 11.2, 14.7),
#'     Texture = c("Coarse", "Coarse", "Medium fine", "Medium", "Medium", "Medium"),
#'     f_om = c(0.118, 0.086, 0.048, 0.023, 0.018, 0.011),
#'     theta_fc = c(0.244, 0.244, 0.385, 0.347, 0.347, 0.347),
#'     rho = c(0.95, 1.05, 1.22, 1.39, 1.43, 1.51),
#'     f_sce = c(3, 2, 2, 2, 1.5, 1.5),
#'     f_mod = c(2, 2, 2, 4, 4, 4),
#'     stringsAsFactors = FALSE,
#'     row.names = c("CTN", "CTC", "CTS", "CLN", "CLC", "CLS")
#'   )
#'   save(soil_scenario_data_EFSA_2015, file = '../data/soil_scenario_data_EFSA_2015.RData')
#' }
#'
#' # And this is the resulting dataframe
#' soil_scenario_data_EFSA_2015
NULL

Contact - Imprint