diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-01 08:34:01 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-07-01 08:34:01 +0200 |
| commit | ddaa35ff58c8dcb04ef86723dccba0bfa97cf053 (patch) | |
| tree | eb0920ca59d47ff1a9c67744232295d08f7582d5 /R | |
| parent | f836d2e30ab206c2e8558fd4cca89b8ee3d08f05 (diff) | |
One more source code comment
Diffstat (limited to 'R')
| -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) {
|