diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-09 21:18:42 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-09 21:18:42 +0200 |
| commit | efab37957381919c21d874906ce870f4941c760a (patch) | |
| tree | d485fa148ec1513a0c0810780a1ed10c4f9097d2 /tests/testthat/test_analytical.R | |
| parent | 47ef00e3d0a961f8fbecf0bd5da0283bed21bb96 (diff) | |
Avoid the call to merge for analytical solutions
This increases performance up to a factor of five!
Diffstat (limited to 'tests/testthat/test_analytical.R')
| -rw-r--r-- | tests/testthat/test_analytical.R | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/testthat/test_analytical.R b/tests/testthat/test_analytical.R new file mode 100644 index 00000000..3d30e042 --- /dev/null +++ b/tests/testthat/test_analytical.R @@ -0,0 +1,11 @@ +context("Analytical solutions for coupled models") + +test_that("The analytical solution of SFO-SFO is correct", { + f_sfo_sfo.ff.analytical <- mkinfit(SFO_SFO.ff, + subset(FOCUS_2006_D, value != 0), + quiet = TRUE) + expect_equal( + parms(f_sfo_sfo.ff), + parms(f_sfo_sfo.ff.analytical) + ) +}) |