aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/FOCUS_2006_D.csf2
-rw-r--r--tests/testthat/test_mkinfit.R10
2 files changed, 11 insertions, 1 deletions
diff --git a/tests/testthat/FOCUS_2006_D.csf b/tests/testthat/FOCUS_2006_D.csf
index 232d7dad..a340a0a5 100644
--- a/tests/testthat/FOCUS_2006_D.csf
+++ b/tests/testthat/FOCUS_2006_D.csf
@@ -5,7 +5,7 @@ Description:
MeasurementUnits: % AR
TimeUnits: days
Comments: Created using mkin::CAKE_export
-Date: 2020-07-15
+Date: 2020-07-17
Optimiser: IRLS
[Data]
diff --git a/tests/testthat/test_mkinfit.R b/tests/testthat/test_mkinfit.R
new file mode 100644
index 00000000..fb81c3d8
--- /dev/null
+++ b/tests/testthat/test_mkinfit.R
@@ -0,0 +1,10 @@
+context("mkinfit features")
+
+test_that("Specifying initial values for state variables works correctly", {
+ f_1 <- mkinfit("SFO", FOCUS_2006_C, state.ini = c(parent = 100), quiet = TRUE)
+ f_2 <- mkinfit("SFO", FOCUS_2006_C, state.ini = c(parrrent = 100), quiet = TRUE)
+
+ # Before mkin 0.9.50.3, these would give different degrees of freedom,
+ # also affecting AIC calculations
+ expect_equal(logLik(f_1), logLik(f_2))
+})

Contact - Imprint