aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-05-12 17:20:19 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-05-12 17:20:19 +0200
commit4355255cc69ca28ed721cb19cba482486c4b4676 (patch)
tree073daad2cf58f74957822315f7e342431bc4fe4b
parent45a3e6253ae29e27a6a07fe5cd8aa20b6612d4c4 (diff)
Fix positioning of labels in mkinparplot
-rw-r--r--R/mkinparplot.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/R/mkinparplot.R b/R/mkinparplot.R
index 28c1d2a4..5a352be8 100644
--- a/R/mkinparplot.R
+++ b/R/mkinparplot.R
@@ -50,7 +50,7 @@ mkinparplot <- function(object) {
yaxt = "n")
if (type %in% c("rates.optim", "fractions.optim")) abline(v = 0, lty = 2)
if (type %in% c("fractions.optim")) abline(v = 1, lty = 2)
- position <- ifelse(values["Estimate", ] < mean(xlim)/2, "right", "left")
+ position <- ifelse(values["Estimate", ] < mean(xlim), "right", "left")
text(ifelse(position == "left", min(xlim), max(xlim)),
length(parnames):1, parnames,
pos = ifelse(position == "left", 4, 2))

Contact - Imprint