diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2012-06-28 04:59:12 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2012-06-28 04:59:12 +0000 |
| commit | 448fd5ede69121c9f4c693ed72ade98d6b9b83e0 (patch) | |
| tree | 04f09ae5f60208e661631db352b1c42d8b34f396 /R/mkinplot.R | |
| parent | ac2bb47b1f5f147b8b6a716b42d46b46a7adc60b (diff) | |
- 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
Diffstat (limited to 'R/mkinplot.R')
| -rw-r--r-- | R/mkinplot.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R/mkinplot.R b/R/mkinplot.R index 789a6f9..7641d26 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) } } |