From 609bfe2fd7ecbdcad5f5d641f0db51541dcd6a4e Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 28 May 2020 12:24:32 +0200 Subject: use_of_ff = "max" for shorthand models like "SFO" --- tests/testthat/test_confidence.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/testthat/test_confidence.R') 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)) -- cgit v1.2.1