diff options
| -rw-r--r-- | R/dimethenamid_2018.R | 4 | ||||
| -rw-r--r-- | data/dimethenamid_2018.rda | bin | 8231 -> 7945 bytes | |||
| -rw-r--r-- | inst/dataset_generation/dimethenamid_2018.R | 24 |
3 files changed, 10 insertions, 18 deletions
diff --git a/R/dimethenamid_2018.R b/R/dimethenamid_2018.R index 189da618..1a7e14a2 100644 --- a/R/dimethenamid_2018.R +++ b/R/dimethenamid_2018.R @@ -11,11 +11,11 @@ #' in the 'dataset_generation' directory. In the code, page numbers are given for #' specific pieces of information in the comments. #' -#' @format An [mkindsg] object grouping eight datasets with some meta information +#' @format An [mkindsg] object grouping seven datasets with some meta information #' @source Rapporteur Member State Germany, Co-Rapporteur Member State Bulgaria (2018) #' Renewal Assessment Report Dimethenamid-P Volume 3 - B.8 Environmental fate and behaviour #' Rev. 2 - November 2017 -#' \url{http://registerofquestions.efsa.europa.eu/roqFrontend/outputLoader?output=ON-5211} +#' \url{https://open.efsa.europa.eu/study-inventory/EFSA-Q-2014-00716} #' @examples #' print(dimethenamid_2018) "dimethenamid_2018" diff --git a/data/dimethenamid_2018.rda b/data/dimethenamid_2018.rda Binary files differindex dd3d934b..39168e9c 100644 --- a/data/dimethenamid_2018.rda +++ b/data/dimethenamid_2018.rda diff --git a/inst/dataset_generation/dimethenamid_2018.R b/inst/dataset_generation/dimethenamid_2018.R index 34a9dad1..52eef995 100644 --- a/inst/dataset_generation/dimethenamid_2018.R +++ b/inst/dataset_generation/dimethenamid_2018.R @@ -15,15 +15,7 @@ dimethenamid_2018 <- mkindsg$new( ) ) ), - mkinds$new("Borstel 1", # p. 22 - mkin_wide_to_long( - data.frame( - t = c(0, 28, 58, 89, 119), - DMTAP = c(100.5, 51.4, 26.8, 15.7, 7.9) - ) - ) - ), - mkinds$new("Borstel 2", # p. 19/20 + mkinds$new("Borstel", # p. 19/20 mkin_wide_to_long( data.frame( t = rep(c(0, 2, 7, 14, 28, 58, 89, 119), each = 2), @@ -134,20 +126,20 @@ dimethenamid_2018 <- mkindsg$new( # but the FOCUS generic guidance suggests them to be equivalent to the USDA # classes with the same name meta = data.frame( - study = c("Unsworth 2014", "Staudenmaier 2013", "Staudenmaier 2009", + study = c("Unsworth 2014", "Staudenmaier 2009", rep("Wendt 1997", 2), "König 1996", rep("König 1995", 2)), - usda_soil_type = c("Sandy loam", rep("Sand", 2), + usda_soil_type = c("Sandy loam", "Sand", rep("Clay loam", 2), "Sandy clay loam", "Loamy sand", "Sandy loam"), - study_moisture_ref_type = c("pF2", rep("pF1", 2), + study_moisture_ref_type = c("pF2", "pF1", rep("pF2.5", 2), rep("pF1", 3)), - rel_moisture = c(1, rep(0.5, 2), + rel_moisture = c(1, 0.5, rep(0.75, 2), rep(0.4, 3)), - study_ref_moisture = c(NA, rep(23, 2), rep(33.37, 2), rep(NA, 3)), - temperature = c(20, rep(20, 2), + study_ref_moisture = c(NA, 23, rep(33.37, 2), rep(NA, 3)), + temperature = c(20, 20, rep(23, 2), rep(20, 3)) ) ) -f_time_norm_focus(dimethenamid_2018) +f_time_norm_focus(dimethenamid_2018) # This modifies the R6 object in place save(dimethenamid_2018, file = "data/dimethenamid_2018.rda", version = 2) |