aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_analytical.R
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat/test_analytical.R')
-rw-r--r--tests/testthat/test_analytical.R11
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)
+ )
+})

Contact - Imprint