diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-15 23:29:21 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-15 23:29:21 +0200 |
| commit | 9a594513914874eac093046678f0e7a5ab640871 (patch) | |
| tree | 0e6859ddaa75144acd2edd82fdb589473a6e6ecf | |
| parent | 4355255cc69ca28ed721cb19cba482486c4b4676 (diff) | |
Start new version number, Fix #5 (Inf values in mkinparplot)
| -rw-r--r-- | DESCRIPTION | 4 | ||||
| -rw-r--r-- | R/mkinparplot.R | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index 58623ad2..fc92b968 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -2,8 +2,8 @@ Package: mkin Type: Package Title: Routines for fitting kinetic models with one or more state variables to chemical degradation data -Version: 0.9-27 -Date: 2014-05-09 +Version: 0.9-28 +Date: 2014-05-15 Authors@R: c(person("Johannes", "Ranke", role = c("aut", "cre", "cph"), email = "jranke@uni-bremen.de"), person("Katrin", "Lindenberger", role = "ctb"), diff --git a/R/mkinparplot.R b/R/mkinparplot.R index 5a352be8..683a8b24 100644 --- a/R/mkinparplot.R +++ b/R/mkinparplot.R @@ -54,8 +54,9 @@ mkinparplot <- function(object) { text(ifelse(position == "left", min(xlim), max(xlim)), length(parnames):1, parnames, pos = ifelse(position == "left", 4, 2)) + values.upper.nonInf <- ifelse(values["Upper", ] == Inf, 1.5 * xlim[[2]], values["Upper", ]) arrows(as.numeric(values["Lower", ]), length(parnames):1, - as.numeric(values["Upper", ]), length(parnames):1, + as.numeric(values.upper.nonInf), length(parnames):1, code = 3, angle = 90, length = 0.05) } par(oldpars) |