aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_logistic.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-04-24 21:03:43 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2019-04-24 21:19:52 +0200
commit380a29e81f88cd80c9c6915200ddc7054c8a085a (patch)
tree93816c95c6bc1604a6edd24ce2617dba54a44fb3 /tests/testthat/test_logistic.R
parent129ff33d91bbea9a90b11f8230b78493eba45fe3 (diff)
Improve output and update tests
Remove skipped tests as I do not intend to reactivate them
Diffstat (limited to 'tests/testthat/test_logistic.R')
-rw-r--r--tests/testthat/test_logistic.R10
1 files changed, 0 insertions, 10 deletions
diff --git a/tests/testthat/test_logistic.R b/tests/testthat/test_logistic.R
index 9f50f32e..5a89fbf5 100644
--- a/tests/testthat/test_logistic.R
+++ b/tests/testthat/test_logistic.R
@@ -34,13 +34,3 @@ test_that("The logistic model fit is reproducible", {
dtx <- endpoints(m)$distimes["parent", ]
expect_equivalent(dtx, c(36.865, 62.415, 4297.854, 10.833), tolerance = 0.001)
})
-
-test_that("The logistic fit can be done via differential equation", {
- # This is slow as we did not implement conversion to C
- # because it is unlikely we will use the logistic model with metabolites
- skip("Skip slow fit of logistic model using deSolve without compilation")
- m_2 <- mkinfit("logistic", d_2_1[[1]], solution_type = "deSolve",
- quiet = TRUE)
- dtx_2 <- endpoints(m_2)$distimes["parent", ]
- expect_equivalent(dtx_2, c(36.865, 62.415, 4297.854, 10.833), tolerance = 0.001)
-})

Contact - Imprint