Revision 69b0f9dca8eb051f132725ecc679fe1997246e50 authored by Adrian Baddeley on 18 January 2006, 21:47:25 UTC, committed by cran-robot on 18 January 2006, 21:47:25 UTC
1 parent cb2215f
plot.splitppp.R
#
plot.splitppp <- function(x, ..., arrange=TRUE) {
n <- length(x)
m <- as.integer(floor(sqrt(n)))
k <- as.integer(ceiling(n/m))
if(arrange)
opa <- par(mfrow=c(k, m))
lapply(names(x),
function(l, x, ...){plot(x[[l]], main=l, ...)},
x=x, ...)
if(arrange)
par(opa)
return(invisible(NULL))
}
Computing file changes ...