diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-10-30 08:39:19 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-10-30 08:39:19 +0000 |
| commit | c183667b90a6efdd78fbd71b33b029596e9b15db (patch) | |
| tree | 70c59ab70a4fe40723deabb504a965bba9106aa2 /R/mkinfit.R | |
| parent | 4bbcc09d767271513974aeefc741bdded9830186 (diff) | |
- Backtransform fixed ODE parameters for the summary (compare ChangeLog)
- Reformatted ChangeLog
- Version bump as mkin 0.9-22 is on CRAN
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@129 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index b0292bba..2be55151 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -247,8 +247,8 @@ mkinfit <- function(mkinmod, observed, rep("deparm", length(parms.optim)))
fit$start$transformed = c(state.ini.optim, parms.optim)
- fit$fixed <- data.frame(
- value = c(state.ini.fixed, parms.fixed))
+ fit$fixed <- data.frame(value = c(state.ini.fixed,
+ backtransform_odeparms(parms.fixed, mod_vars)))
fit$fixed$type = c(rep("state", length(state.ini.fixed)),
rep("deparm", length(parms.fixed)))
|