aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-07-17 16:27:46 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2020-07-17 16:27:46 +0200
commita7e209b553e2e99ffc9aa2b003f9b73b9ac4b985 (patch)
tree25b9b07d372bab606b07e91f53bd8059d867d767 /R
parent9b8ee1c02b04cd45b9cd5231ec2bad36afe6313f (diff)
mkinfit: Ignore unused components of state.ini
Diffstat (limited to 'R')
-rw-r--r--R/mkinfit.R3
1 files changed, 2 insertions, 1 deletions
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

Contact - Imprint