aboutsummaryrefslogtreecommitdiff
path: root/R/mkinparplot.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-05-05 17:39:50 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-05-05 17:39:50 +0200
commitba9a4030a3472cfe3d2257e07fe4949224d0c016 (patch)
tree00434c22e1ed3bc398cd116c03e6384fe959e6e1 /R/mkinparplot.R
parentf9eeba428ebb95e861df0191d896d39ce6891246 (diff)
Get old parameters timely (before calling layout)
Diffstat (limited to 'R/mkinparplot.R')
-rw-r--r--R/mkinparplot.R4
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)

Contact - Imprint