diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-05 17:39:50 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-05 17:39:50 +0200 |
| commit | ba9a4030a3472cfe3d2257e07fe4949224d0c016 (patch) | |
| tree | 00434c22e1ed3bc398cd116c03e6384fe959e6e1 /R | |
| parent | f9eeba428ebb95e861df0191d896d39ce6891246 (diff) | |
Get old parameters timely (before calling layout)
Diffstat (limited to 'R')
| -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 7f8a7052..28c1d2a4 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) |