From f606838c5310f365eea1c0d6421f5c3636a4dc79 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 8 Dec 2020 22:08:38 +0100 Subject: mixed.mmkin and test coverage --- R/mkinfit.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R/mkinfit.R') diff --git a/R/mkinfit.R b/R/mkinfit.R index a6efc858..c659e446 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -885,8 +885,8 @@ mkinfit <- function(mkinmod, observed, fit$rss <- function(P) cost_function(P, OLS = TRUE, update_data = FALSE) # Log-likelihood with possibility to fix degparms or errparms - fit$ll <- function(P, fixed_degparms = FALSE, fixed_errparms = FALSE) { - - cost_function(P, trans = FALSE, fixed_degparms = fixed_degparms, + fit$ll <- function(P, fixed_degparms = FALSE, fixed_errparms = FALSE, trans = FALSE) { + - cost_function(P, trans = trans, fixed_degparms = fixed_degparms, fixed_errparms = fixed_errparms, OLS = FALSE, update_data = FALSE) } -- cgit v1.2.1