blob: fb81c3d8dbf46cee770ccedb565679e5c79ab515 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
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))
})
|
