From 4355255cc69ca28ed721cb19cba482486c4b4676 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 12 May 2014 17:20:19 +0200 Subject: Fix positioning of labels in mkinparplot --- R/mkinparplot.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R/mkinparplot.R') 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)) -- cgit v1.2.1