diff options
-rw-r--r-- | R/mkinfit.R | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 661dfda4..f1a3e6bb 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -59,6 +59,8 @@ mkinfit <- function(mkinmod, observed, " not used in the model")
}
+ # Set initial parameter values, including a small increment (salt)
+ # to avoid linear dependencies (singular matrix) in Eigenvalue based solutions
k_salt = 0
defaultpar.names <- setdiff(mkinmod$parms, names(parms.ini))
for (parmname in defaultpar.names) {
|