aboutsummaryrefslogtreecommitdiff
path: root/R/mkinplot.R
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2012-06-28 04:59:12 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2012-06-28 04:59:12 +0000
commit448fd5ede69121c9f4c693ed72ade98d6b9b83e0 (patch)
tree04f09ae5f60208e661631db352b1c42d8b34f396 /R/mkinplot.R
parentac2bb47b1f5f147b8b6a716b42d46b46a7adc60b (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.R8
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)
}
}

Contact - Imprint