diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-06-26 14:40:33 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-06-26 14:40:33 +0200 |
| commit | ab93a4ea8f111949b6d99a79eae54bded86215dc (patch) | |
| tree | 971728f37ad3ed94b8427a64c8ea0127b719f4fb /R | |
| parent | d9f884d10894ec4895e3928f50dc625575cc5191 (diff) | |
Fix x axis scaling in mkinparplot
Diffstat (limited to 'R')
| -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 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)) { |