diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-22 10:32:32 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-22 10:32:32 +0100 |
| commit | f12b9bcc5bded392eee51810fac5f94c2ae7d9c2 (patch) | |
| tree | 618d7c8b15218634a4fa1029106e202cd2539c1a | |
| parent | 6c0c0986d7c33ebcc290cad12b02eaacafa796ad (diff) | |
Adapt test to the extended endpoints function
| -rw-r--r-- | tests/testthat/test_logistic.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_logistic.R b/tests/testthat/test_logistic.R index 5cc00fd3..9f50f32e 100644 --- a/tests/testthat/test_logistic.R +++ b/tests/testthat/test_logistic.R @@ -32,7 +32,7 @@ d_2_1 <- add_err(d_logistic, test_that("The logistic model fit is reproducible", { m <- mkinfit("logistic", d_2_1[[1]], quiet = TRUE) dtx <- endpoints(m)$distimes["parent", ] - expect_equivalent(dtx, c(36.86533, 62.41511), tolerance = 0.00001) + 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", { @@ -42,5 +42,5 @@ test_that("The logistic fit can be done via differential equation", { 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.86533, 62.41511), tolerance = 0.00001) + expect_equivalent(dtx_2, c(36.865, 62.415, 4297.854, 10.833), tolerance = 0.001) }) |