From f12b9bcc5bded392eee51810fac5f94c2ae7d9c2 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 22 Feb 2019 10:32:32 +0100 Subject: Adapt test to the extended endpoints function --- tests/testthat/test_logistic.R | 4 ++-- 1 file 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) }) -- cgit v1.2.1