diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2019-04-24 21:03:43 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-04-24 21:19:52 +0200 |
commit | 380a29e81f88cd80c9c6915200ddc7054c8a085a (patch) | |
tree | 93816c95c6bc1604a6edd24ce2617dba54a44fb3 /tests/testthat/test_logistic.R | |
parent | 129ff33d91bbea9a90b11f8230b78493eba45fe3 (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.R | 10 |
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) -}) |