On Dec 10, 2009, at 9:09 PM, David Winsemius wrote:

Take a look at Figure 13.7 in Sarkar's Lattice book, all of whose figures are on the web page for the book, I believe. ... yep...

http://lmdvr.r-forge.r-project.org/figures/figures.html (tried to extract the link to that page but you will need to navigate the page yourself.

My efforts to reproduce that figure were more difficult than I expected, so here is some "punctuated" code that may survive better than my initial cut and paste failures:

panel.3d.contour <-
function(x, y, z, rot.mat, distance,
             nlevels = 20, zlim.scaled, ...) {
add.line <- trellis.par.get("add.line")
panel.3dwire(x, y, z, rot.mat, distance,
                 zlim.scaled = zlim.scaled, ...)
clines <- contourLines(x, y, matrix(z, nrow = length(x), byrow = TRUE),
                           nlevels = nlevels)
for (ll in clines) {
m <- ltransform3dto3d(rbind(ll$x, ll$y, zlim.scaled[2]),
rot.mat, distance)
panel.lines(m[1,], m[2,], col = add.line$col,
           lty = add.line$lty, lwd = add.line$lwd)
                   }
                                            }

fig13.7 <-wireframe(volcano, zlim = c(90, 250), nlevels = 10,
aspect = c(61/87, .3), panel.aspect = 0.6,
panel.3d.wireframe = "panel.3d.contour", shade = TRUE,
screen = list(z = 20, x = -60))

fig13.7 # sometimes need to explicitly call the print function for lattice objects

--
David

On Dec 10, 2009, at 8:11 PM, Bruno Goncalves wrote:

http://www.gradient-da.com/img/temperature%20surface%20plot%20470x406.JPG

David Winsemius, MD
Heritage Laboratories
West Hartford, CT

______________________________________________
R-help@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.

David Winsemius, MD
Heritage Laboratories
West Hartford, CT

______________________________________________
R-help@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.

Reply via email to