diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-07-21 17:15:12 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-07-21 17:43:16 +0200 |
| commit | b703ee38ffc8877be843cf5a557dd9c32c54f977 (patch) | |
| tree | 4da8adf610a1e431f514efc256f44bb7abdec4ca /tests/testthat/test_summary.R | |
| parent | ad6ef5013dce7ef1ef9bbcadbd278b71da9b6f72 (diff) | |
Summary method for mmkin objects
Also, add a method for gathering convergence information
and a method for gathering information on ill-defined parameters
Diffstat (limited to 'tests/testthat/test_summary.R')
| -rw-r--r-- | tests/testthat/test_summary.R | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/testthat/test_summary.R b/tests/testthat/test_summary.R index 5cf6ac6b..a31d3bae 100644 --- a/tests/testthat/test_summary.R +++ b/tests/testthat/test_summary.R @@ -46,6 +46,12 @@ test_that("Summaries are reproducible", { expect_known_output(print(test_summary_3), "summary_DFOP_FOCUS_D_deSolve.txt") }) +test_that("Summaries of mmkin objects are reproducible", { + test_summary <- summary(fits) + test_summary$time <- c(elapsed = "test time 0") + expect_known_output(print(test_summary), "summary_parent_FOCUS_2006.txt") +}) + test_that("A fit generated with mkin 0.9.48.1 can be summarised", { # Generated with mkin 0.9.48.1 # SFO_SFO <- mkinmod(parent = list(type = "SFO", to = "m1"), |