aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_dmta.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-02-28 18:12:39 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-02-28 18:14:24 +0100
commit1a9232a1af98b79e254443fe942371d74aad4ac3 (patch)
tree11bb94be1b7bfd0aab72e129d4353b92d3e04595 /tests/testthat/test_dmta.R
parent7171798e8026238791f2065f167e3c9af50231d9 (diff)
Improve tests, skip some on Travis
Respect digits argument when printing correlations in summaries
Diffstat (limited to 'tests/testthat/test_dmta.R')
-rw-r--r--tests/testthat/test_dmta.R49
1 files changed, 48 insertions, 1 deletions
diff --git a/tests/testthat/test_dmta.R b/tests/testthat/test_dmta.R
index 3437966f..46a4fdcc 100644
--- a/tests/testthat/test_dmta.R
+++ b/tests/testthat/test_dmta.R
@@ -1,4 +1,4 @@
-context("Dimethenamid data from 2018, parent fits")
+context("Dimethenamid data from 2018")
# Data
dmta_ds <- lapply(1:7, function(i) {
@@ -91,6 +91,7 @@ test_that("Different backends get consistent results for DFOP tc, dimethenamid d
backtransform_odeparms(ints_nlme$reStruct$ds[, "upper"], dmta_dfop$mkinmod)))
# Variance function
+ skip_on_travis() # For some reason this fails on Travis
# saemix vs. nlme
expect_true(all(ints_saemix[[3]][, "est."] >
ints_nlme$varStruct[, "lower"]))
@@ -118,3 +119,49 @@ test_that("Different backends get consistent results for DFOP tc, dimethenamid d
expect_true(ints_nlmixr_focei[[3]]["rsd_high", "est."] <
ints_nlme$varStruct["prop", "upper"])
})
+
+# Model definition from the 2020 paper https://doi.org/10.3390/environments8080071
+# But note the data are different, as we did not pool the data from the same soils
+# for the paper
+# The model is called DFOP-SFO3+ in the paper
+dfop_sfo3p <- mkinmod(
+ DMTA = mkinsub("DFOP", c("M23", "M27", "M31")),
+ M23 = mkinsub("SFO"),
+ M27 = mkinsub("SFO"),
+ M31 = mkinsub("SFO", "M27", sink = FALSE),
+ quiet = TRUE
+)
+dfop_sfo3 <- mkinmod(
+ DMTA = mkinsub("DFOP", c("M23", "M27", "M31")),
+ M23 = mkinsub("SFO"),
+ M27 = mkinsub("SFO"),
+ M31 = mkinsub("SFO"),
+ quiet = TRUE
+)
+
+# The following is work in progress
+#dmta_dfop_sfo3p_tc <- mmkin(list("DFOP-SFO3+" = dfop_sfo3p),
+# dmta_ds, error_model = "tc", quiet = TRUE)
+# The Borstel dataset give false convergence
+#dmta_dfop_sfo3_tc <- mmkin(list("DFOP-SFO3" = dfop_sfo3),
+# dmta_ds, error_model = "tc", quiet = TRUE)
+# We get convergence in all soils
+
+#test_that("Different backends get consistent results for DFOP-SFO3+, dimethenamid data", {
+
+ # nlme needs some help to converge
+# nlme_dfop_sfo3p_tc <- nlme(dmta_dfop_sfo3p_tc,
+# control = list(pnlsMaxIter = 30, tolerance = 3e-3))
+# ints_nlme_dfop_sfo3p_tc <- intervals(nlme_dfop_sfo3p_tc, which = "fixed")
+
+ # saemix does not succeed with these data, we get problems
+ # with the deSolve solutions, depending on the seed:
+ # Error in lsoda(y, times, func, parms, ...) :
+ # illegal input detected before taking any integration steps - see
+ # written message
+ # or:
+ # Error in out[available, var] : (subscript) logical subscript too long
+ #saem_saemix_dfop_sfo3p_tc <- saem(dmta_dfop_sfo3p_tc)
+
+#})
+

Contact - Imprint