From fa10b85d6bb964742d2c5a3e3f633a5238c43d56 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Mon, 18 Feb 2013 22:11:49 +0000
Subject: - 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
---
 R/plot.mkinfit.R | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'R/plot.mkinfit.R')

diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index fc8ecf74..59ef861e 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")))
-- 
cgit v1.2.1