diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2021-09-16 08:23:57 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2021-09-16 08:23:57 +0200 |
| commit | 212070667de33e4d4adc7f0ae7baf8e18ad51d3f (patch) | |
| tree | 85eb7e3b3bc00736625cf9d439b3436919db42a2 /man | |
| parent | 51fab94230e926cec690dc455964bd797a97b7c7 (diff) | |
| parent | 2e77bf144a81852302571009b1fcd41f021eca4c (diff) | |
Merge branch 'master' into nlmixr
Diffstat (limited to 'man')
| -rw-r--r-- | man/dimethenamid_2018.Rd | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/man/dimethenamid_2018.Rd b/man/dimethenamid_2018.Rd index a0e5bbea..0d1265be 100644 --- a/man/dimethenamid_2018.Rd +++ b/man/dimethenamid_2018.Rd @@ -5,7 +5,7 @@ \alias{dimethenamid_2018} \title{Aerobic soil degradation data on dimethenamid and dimethenamid-P from the EU assessment in 2018} \format{ -An \link{mkindsg} object grouping eight datasets with some meta information +An \link{mkindsg} object grouping seven datasets with some meta information } \source{ Rapporteur Member State Germany, Co-Rapporteur Member State Bulgaria (2018) @@ -31,16 +31,13 @@ specific pieces of information in the comments. } \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 |