diff options
| -rw-r--r-- | DESCRIPTION | 2 | ||||
| -rw-r--r-- | NEWS.md | 2 | ||||
| -rw-r--r-- | 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"), @@ -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))
|