aboutsummaryrefslogtreecommitdiff
path: root/R/plot.mkinfit.R
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-02-18 22:11:49 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-02-18 22:11:49 +0000
commitfa10b85d6bb964742d2c5a3e3f633a5238c43d56 (patch)
tree7497bddd9937aee3989db75cae5bbdff3fae9146 /R/plot.mkinfit.R
parent67860242fc619624421a8fd96ba9e385456a9c2d (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/plot.mkinfit.R')
-rw-r--r--R/plot.mkinfit.R5
1 files changed, 2 insertions, 3 deletions
diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index fc8ecf7..59ef861 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -30,9 +30,8 @@ plot.mkinfit <- function(x, fit = x,
add = FALSE, legend = !add, ...)
{
solution_type = fit$solution_type
- fixed <- fit$fixed$value
- names(fixed) <- rownames(fit$fixed)
- parms.all <- c(fit$parms.all, fixed)
+ parms.all <- c(fit$bparms.optim, fit$bparms.fixed)
+
ininames <- c(
rownames(subset(fit$start, type == "state")),
rownames(subset(fit$fixed, type == "state")))

Contact - Imprint