From a7e209b553e2e99ffc9aa2b003f9b73b9ac4b985 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 17 Jul 2020 16:27:46 +0200 Subject: mkinfit: Ignore unused components of state.ini --- R/mkinfit.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'R') diff --git a/R/mkinfit.R b/R/mkinfit.R index 12df0325..ee7c0b99 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -424,7 +424,8 @@ mkinfit <- function(mkinmod, observed, state.ini_used <- state.ini_auto } else { state.ini_used <- state.ini_auto - state.ini_used[names(state.ini)] <- state.ini + state.ini_good <- intersect(names(mkinmod$diffs), names(state.ini)) + state.ini_used[state.ini_good] <- state.ini[state.ini_good] } state.ini <- state.ini_used -- cgit v1.2.1