From b703ee38ffc8877be843cf5a557dd9c32c54f977 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 21 Jul 2022 17:15:12 +0200 Subject: Summary method for mmkin objects Also, add a method for gathering convergence information and a method for gathering information on ill-defined parameters --- tests/testthat/test_summary.R | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'tests/testthat/test_summary.R') 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"), -- cgit v1.2.1