From c0803a4e6660a6ad3a3a219476b6269bab528bfe Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 22 Oct 2014 09:18:41 +0200 Subject: Always include 0 on y axis when plotting during the fit --- DESCRIPTION | 2 +- NEWS.md | 2 ++ R/mkinfit.R | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index d36c35cc..da7037a6 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-34 -Date: 2014-10-15 +Date: 2014-10-22 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 60974b14..837293bb 100644 --- a/NEWS.md +++ b/NEWS.md @@ -8,6 +8,8 @@ - The formatting of differential equations in the summary was further improved +- Always include 0 on y axis when plotting during the fit + # CHANGES in mkin VERSION 0.9-33 ## NEW FEATURES diff --git a/R/mkinfit.R b/R/mkinfit.R index 6494ea1e..e7cab1ee 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -281,7 +281,7 @@ mkinfit <- function(mkinmod, observed, atol = atol, rtol = rtol, ...) plot(0, type="n", - xlim = range(observed$time), ylim = range(observed$value, na.rm=TRUE), + xlim = range(observed$time), ylim = c(0, max(observed$value, na.rm=TRUE)), xlab = "Time", ylab = "Observed") col_obs <- pch_obs <- 1:length(obs_vars) lty_obs <- rep(1, length(obs_vars)) -- cgit v1.2.1