diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-02-18 22:11:49 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-02-18 22:11:49 +0000 |
| commit | fa10b85d6bb964742d2c5a3e3f633a5238c43d56 (patch) | |
| tree | 7497bddd9937aee3989db75cae5bbdff3fae9146 /R/mkinerrmin.R | |
| parent | 67860242fc619624421a8fd96ba9e385456a9c2d (diff) | |
- Completion of the multicompartment part of the mkin examples vignette
- Fix to chi2 error level calculation by correctly returning backtransformed
parameters as bparms.optim and bparms.fixed
- Adaptations of unit tests, summary and plot functions
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@67 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'R/mkinerrmin.R')
| -rw-r--r-- | R/mkinerrmin.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/mkinerrmin.R b/R/mkinerrmin.R index 49538e3..8b1e9b2 100644 --- a/R/mkinerrmin.R +++ b/R/mkinerrmin.R @@ -20,7 +20,7 @@ utils::globalVariables(c("name"))
mkinerrmin <- function(fit, alpha = 0.05)
{
- parms.optim <- fit$parms.all
+ parms.optim <- fit$par
kinerrmin <- function(errdata, n.parms) {
means.mean <- mean(errdata$value_mean, na.rm=TRUE)
df = length(errdata$value_mean) - n.parms
|