Lattice: how to have multiple wireframe nice intersection?

Hello,

This code builds a simple example of 2 wireframes :

require(lattice)
x <- c(1:10)
y <- c(1:10)
g <- expand.grid(x = 1:10, y = 1:10, gr = 1:2)
g$z <- c(as.vector(outer(x,y,"*")), rep(50,100))
wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows =  
FALSE))

However, the intersection between the wireframes is not properly  
drawn. Is there a way to fix this with lattice, or should I use   
another package more suitable for this?

Exactly what "not properly drawn" means is not stated. If it is the  
jagged intersection, then expanding the grid would seem to be one way  
forward. Here's 100 x 100:

 > require(lattice)
 > x <-seq(1,10, len=100); y <- seq(1,10, len=100)
 > g <- expand.grid(x = seq(1,10, len=100), y = seq(1,10, len=100), gr  
= 1:2)
 > g$z <- c(as.vector(outer(x,y,"*")), rep(50,10000))
 > wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows =  
FALSE))

You do get some Moir`e effects, but the jagged intersection is no  
longer visible and the curvature is visible.

With 50*50 points it has a less obvious curvature to the intersection  
(but four times as fast).

require(lattice)
x <-seq(1,10, len=50); y <- seq(1,10, len=50)
g <- expand.grid(x = x, y = y, gr = 1:2)
g$z <- c(as.vector(outer(x,y,"*")), rep(50,length(x)*length(y)))
wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows =  
FALSE))

Or you could emphasize the curvature by drawing it in. I'm not the guy  
to do that, but there is an example of adding contours to a wireframe  
plot in Sarkar's book. Figure 13.7:

http://lmdvr.r-forge.r-project.org/figures/figures.html

David Winsemius
>
>
> Thanks!
>
> Guillaume
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.