diff options
| -rw-r--r-- | R/mkinparplot.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/mkinparplot.R b/R/mkinparplot.R index 7f8a705..28c1d2a 100644 --- a/R/mkinparplot.R +++ b/R/mkinparplot.R @@ -27,12 +27,12 @@ mkinparplot <- function(object) { fractions.optim = length(fractions.optim)) n.plot <- n.plot[n.plot > 0] + oldpars <- par(no.readonly = TRUE) layout(matrix(1:length(n.plot), ncol = 1), heights = n.plot + 1) s <- summary(object) bpar <- data.frame(t(s$bpar)) - oldpars <- par(no.readonly = TRUE) - par(mar = c(3.1, 2.1, 0.1, 2.1)) + par(mar = c(2.1, 2.1, 0.1, 2.1)) par(cex = 1) for (type in names(n.plot)) { parnames <- get(type) |