From c0803a4e6660a6ad3a3a219476b6269bab528bfe Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
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