aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-02-22 10:32:32 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2019-02-22 10:32:32 +0100
commitf12b9bcc5bded392eee51810fac5f94c2ae7d9c2 (patch)
tree618d7c8b15218634a4fa1029106e202cd2539c1a /tests/testthat
parent6c0c0986d7c33ebcc290cad12b02eaacafa796ad (diff)
Adapt test to the extended endpoints function
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_logistic.R4
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)
})

Contact - Imprint