aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2021-09-16 08:23:57 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2021-09-16 08:23:57 +0200
commit212070667de33e4d4adc7f0ae7baf8e18ad51d3f (patch)
tree85eb7e3b3bc00736625cf9d439b3436919db42a2 /R
parent51fab94230e926cec690dc455964bd797a97b7c7 (diff)
parent2e77bf144a81852302571009b1fcd41f021eca4c (diff)
Merge branch 'master' into nlmixr
Diffstat (limited to 'R')
-rw-r--r--R/dimethenamid_2018.R7
1 files changed, 2 insertions, 5 deletions
diff --git a/R/dimethenamid_2018.R b/R/dimethenamid_2018.R
index 770649e2..2bf5fb77 100644
--- a/R/dimethenamid_2018.R
+++ b/R/dimethenamid_2018.R
@@ -11,23 +11,20 @@
#' 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{https://open.efsa.europa.eu/study-inventory/EFSA-Q-2014-00716}
#' @examples
#' print(dimethenamid_2018)
-#' dmta_ds <- lapply(1:8, function(i) {
+#' dmta_ds <- lapply(1:7, function(i) {
#' ds_i <- dimethenamid_2018$ds[[i]]$data
#' ds_i[ds_i$name == "DMTAP", "name"] <- "DMTA"
#' ds_i$time <- ds_i$time * dimethenamid_2018$f_time_norm[i]
#' ds_i
#' })
#' names(dmta_ds) <- sapply(dimethenamid_2018$ds, function(ds) ds$title)
-#' dmta_ds[["Borstel"]] <- rbind(dmta_ds[["Borstel 1"]], dmta_ds[["Borstel 2"]])
-#' dmta_ds[["Borstel 1"]] <- NULL
-#' dmta_ds[["Borstel 2"]] <- NULL
#' dmta_ds[["Elliot"]] <- rbind(dmta_ds[["Elliot 1"]], dmta_ds[["Elliot 2"]])
#' dmta_ds[["Elliot 1"]] <- NULL
#' dmta_ds[["Elliot 2"]] <- NULL

Contact - Imprint