diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-07-17 16:27:46 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-07-17 16:27:46 +0200 |
| commit | a7e209b553e2e99ffc9aa2b003f9b73b9ac4b985 (patch) | |
| tree | 25b9b07d372bab606b07e91f53bd8059d867d767 /tests/testthat/test_mkinfit.R | |
| parent | 9b8ee1c02b04cd45b9cd5231ec2bad36afe6313f (diff) | |
mkinfit: Ignore unused components of state.ini
Diffstat (limited to 'tests/testthat/test_mkinfit.R')
| -rw-r--r-- | tests/testthat/test_mkinfit.R | 10 |
1 files changed, 10 insertions, 0 deletions
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)) +}) |