diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testthat/summary_parent_FOCUS_2006.txt | 20 | ||||
| -rw-r--r-- | tests/testthat/test_summary.R | 2 |
2 files changed, 11 insertions, 11 deletions
diff --git a/tests/testthat/summary_parent_FOCUS_2006.txt b/tests/testthat/summary_parent_FOCUS_2006.txt index d31bd869..60a36b67 100644 --- a/tests/testthat/summary_parent_FOCUS_2006.txt +++ b/tests/testthat/summary_parent_FOCUS_2006.txt @@ -3,18 +3,18 @@ Fitted in test time 0 s Convergence: dataset -model FOCUS_A FOCUS_C FOCUS_D - SFO OK OK OK - FOMC OK OK OK - DFOP OK OK OK - HS OK OK OK +model FOCUS_C FOCUS_D + SFO OK OK + FOMC OK OK + DFOP OK OK + HS OK OK OK: No warnings Ill-defined parameters: dataset -model FOCUS_A FOCUS_C FOCUS_D - SFO - FOMC parent_0, alpha, beta, sigma alpha, beta - DFOP g g - HS k2 +model FOCUS_C FOCUS_D + SFO + FOMC alpha, beta + DFOP g + HS k2 diff --git a/tests/testthat/test_summary.R b/tests/testthat/test_summary.R index a31d3bae..87dc7de2 100644 --- a/tests/testthat/test_summary.R +++ b/tests/testthat/test_summary.R @@ -47,7 +47,7 @@ test_that("Summaries are reproducible", { }) test_that("Summaries of mmkin objects are reproducible", { - test_summary <- summary(fits) + test_summary <- summary(fits[ , 2:3]) test_summary$time <- c(elapsed = "test time 0") expect_known_output(print(test_summary), "summary_parent_FOCUS_2006.txt") }) |