From 8be01094ecbc65d4bdf1e7f819ef01b7a252b39d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 24 Jul 2014 09:58:55 +0200 Subject: Avoid artificial zero residual in mkinresplot --- DESCRIPTION | 2 +- NEWS.md | 2 ++ R/mkinresplot.R | 3 ++- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index de9ff203..2da7f1c1 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -3,7 +3,7 @@ Type: Package Title: Routines for fitting kinetic models with one or more state variables to chemical degradation data Version: 0.9-32 -Date: 2014-07-23 +Date: 2014-07-24 Authors@R: c(person("Johannes", "Ranke", role = c("aut", "cre", "cph"), email = "jranke@uni-bremen.de"), person("Katrin", "Lindenberger", role = "ctb"), diff --git a/NEWS.md b/NEWS.md index 9d5129c9..02c7c661 100644 --- a/NEWS.md +++ b/NEWS.md @@ -16,6 +16,8 @@ ## BUG FIXES +- Avoid plotting an artifical 0 residual at time zero in `mkinresplot` + - In the determination of the degrees of freedom in `mkinerrmin`, formation fractions were accounted for multiple times in the case of parallel formation of metabolites. See the new feature described above for the solution. - `transform_rates=FALSE` in `mkinfit` now also works for FOMC and HS models. diff --git a/R/mkinresplot.R b/R/mkinresplot.R index c9a801fd..82ffd2cb 100644 --- a/R/mkinresplot.R +++ b/R/mkinresplot.R @@ -36,7 +36,8 @@ mkinresplot <- function (object, col_obs <- pch_obs <- 1:length(obs_vars) names(col_obs) <- names(pch_obs) <- obs_vars - plot(0, xlab = xlab, ylab = ylab, + plot(0, type = "n", + xlab = xlab, ylab = ylab, xlim = xlim, ylim = c(-1.2 * maxabs, 1.2 * maxabs), ...) -- cgit v1.2.1