[R] Looking for nice implementations of rectangular scatterplot matrices

[Richard M. Heiberger]

library(lattice)

tmp <- data.frame(y1=rnorm(3), y2=rnorm(3),
                  x1=rnorm(3), x2=rnorm(3), x3=rnorm(3))
xyplot(y1+y2 ~ x1+x2+x3, data=tmp, outer=TRUE)