From 448fd5ede69121c9f4c693ed72ade98d6b9b83e0 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Thu, 28 Jun 2012 04:59:12 +0000
Subject: - Formatting improvement of mkinmod - Small fix in mkinplot

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@45 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 R/mkinplot.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'R/mkinplot.R')

diff --git a/R/mkinplot.R b/R/mkinplot.R
index 789a6f98..7641d262 100644
--- a/R/mkinplot.R
+++ b/R/mkinplot.R
@@ -24,15 +24,15 @@ mkinplot <- function(fit, xlab = "Time", ylab = "Observed", xlim = range(fit$dat
   plot(0, type="n", 
     xlim = xlim, ylim = ylim,
     xlab = xlab, ylab = ylab, ...)
-  col_obs <- pch_obs <- 1:length(fit$mkinmod$map)
-  names(col_obs) <- names(pch_obs) <- names(fit$mkinmod$map)
+  col_obs <- pch_obs <- lty_obs <- 1:length(fit$mkinmod$map)
+  names(col_obs) <- names(pch_obs) <- names(lty_obs) <- names(fit$mkinmod$map)
   for (obs_var in names(fit$mkinmod$map)) {
     points(subset(fit$data, variable == obs_var, c(time, observed)), 
-    pch = pch_obs[obs_var], col = col_obs[obs_var])
+      pch = pch_obs[obs_var], col = col_obs[obs_var])
   }
   matlines(out$time, out[-1])
   if (legend == TRUE) {
     legend("topright", inset=c(0.05, 0.05), legend=names(fit$mkinmod$map),
-      col=col_obs, pch=pch_obs, lty=1:length(pch_obs))
+      col=col_obs, pch=pch_obs, lty=lty_obs)
   }
 }
-- 
cgit v1.2.1