diff options
Diffstat (limited to 'R/mkinparplot.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)) { |