aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-05-15 23:29:21 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-05-15 23:29:21 +0200
commit9a594513914874eac093046678f0e7a5ab640871 (patch)
tree0e6859ddaa75144acd2edd82fdb589473a6e6ecf
parent4355255cc69ca28ed721cb19cba482486c4b4676 (diff)
Start new version number, Fix #5 (Inf values in mkinparplot)
-rw-r--r--DESCRIPTION4
-rw-r--r--R/mkinparplot.R3
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)

Contact - Imprint