From ab93a4ea8f111949b6d99a79eae54bded86215dc Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 26 Jun 2015 14:40:33 +0200
Subject: Fix x axis scaling 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 a5e8fb89..0e8bdf5a 100644
--- a/R/mkinparplot.R
+++ b/R/mkinparplot.R
@@ -33,7 +33,7 @@ mkinparplot <- function(object) {
   layout(matrix(1:length(n.plot), ncol = 1), heights = n.plot + 1)
 
   s <- summary(object)
-  bpar <- data.frame(t(s$bpar))
+  bpar <- data.frame(t(s$bpar[, c("Estimate", "Lower", "Upper")]))
   par(mar = c(2.1, 2.1, 0.1, 2.1))
   par(cex = 1)
   for (type in names(n.plot)) {
-- 
cgit v1.2.1