diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-12 17:20:19 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-12 17:20:19 +0200 |
commit | 4355255cc69ca28ed721cb19cba482486c4b4676 (patch) | |
tree | 073daad2cf58f74957822315f7e342431bc4fe4b | |
parent | 45a3e6253ae29e27a6a07fe5cd8aa20b6612d4c4 (diff) |
Fix positioning of labels in mkinparplot
-rw-r--r-- | R/mkinparplot.R | 2 |
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)) |