diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-28 12:24:32 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-28 12:24:32 +0200 |
| commit | 609bfe2fd7ecbdcad5f5d641f0db51541dcd6a4e (patch) | |
| tree | 82384c0441bdf268040ecc29913d820ae26611b6 /tests/testthat/test_confidence.R | |
| parent | 156b82b88dbd73e9370c74b474432b410415046d (diff) | |
use_of_ff = "max" for shorthand models like "SFO"
Diffstat (limited to 'tests/testthat/test_confidence.R')
| -rw-r--r-- | tests/testthat/test_confidence.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_confidence.R b/tests/testthat/test_confidence.R index e85fdb7a..3fdd3f2c 100644 --- a/tests/testthat/test_confidence.R +++ b/tests/testthat/test_confidence.R @@ -67,9 +67,9 @@ test_that("Likelihood profile based confidence intervals work", { f <- fits[["SFO", "FOCUS_C"]] # negative log-likelihood for use with mle - f_nll <- function(parent_0, k_parent_sink, sigma) { + f_nll <- function(parent_0, k_parent, sigma) { - f$ll(c(parent_0 = as.numeric(parent_0), - k_parent_sink = as.numeric(k_parent_sink), + k_parent = as.numeric(k_parent), sigma = as.numeric(sigma))) } f_mle <- stats4::mle(f_nll, start = as.list(parms(f)), nobs = nrow(FOCUS_2006_C)) |