Ivailo Stoyanov a écrit
> i wonder how to force the function scatter.acm() to honour a previous
> call of par(mfrow = c(x,y)).
You can use this version :
"scatter.acm" <- function (x, xax = 1, yax = 2, mfrow=NULL, csub = 2, possub = "topleft",
...) {
if (!inherits(x, "acm"))
stop("For 'acm' object")
if (x$nf == 1) {
score.(x, 1)
return(invisible())
}
def.par <- par(no.readonly = TRUE)
on.exit(par(def.par))
oritab <- eval(as.list(x$call)[[2]], sys.frame(0))
nvar <- ncol(oritab)
# modif samedi, juin 11, 2005 at 15:38
# message de Ivailo Stoyanov istoyanov@ecolab.bas.bg
if (is.null(mfrow)) mfrow = n2mfrow(nvar)
old.par <- par(no.readonly = TRUE)
on.exit(par(old.par))
par(mfrow = mfrow)
if (prod(mfrow)<nvar) par(ask=T)
# modif lundi, décembre 16, 2002 at 16:48
# suite à message d'Alain Guerreau
for (i in 1:(nvar)) s.class(x$li, oritab[, i], xax=xax, yax=yax, clab = 1.5,
sub = names(oritab)[i], csub = csub, possub = possub,
cgrid = 0, csta = 0, ...)
}
A good idea to be kept in the next update
thanks
This archive was generated by hypermail 2b30 : Tue Oct 18 2005 - 10:35:40 MEST