aboutsummaryrefslogtreecommitdiff
path: root/inst/dataset_generation/dimethenamid_2018.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 /inst/dataset_generation/dimethenamid_2018.R
parent51fab94230e926cec690dc455964bd797a97b7c7 (diff)
parent2e77bf144a81852302571009b1fcd41f021eca4c (diff)
Merge branch 'master' into nlmixr
Diffstat (limited to 'inst/dataset_generation/dimethenamid_2018.R')
-rw-r--r--inst/dataset_generation/dimethenamid_2018.R24
1 files changed, 8 insertions, 16 deletions
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)

Contact - Imprint