Thank you very much. Your link to the lattice webpage was extremely helpful. Now I just need to pour over the wireframe, panel.3d, etc... documentation and try to figure out a way of combining 13.7 and 13.9 :)
Best, Bruno ******************************************* Bruno Miguel Tavares Gonçalves, PhD Center for Complex Networks and Systems Research School of Informatics and Computing Indiana University Bloomington, IN 47408 Phone: (812) 855-9958 Cell: (678) 644-1704 Homepage: www.bgoncalves.com Email: bgoncal...@gmail.com ******************************************* On Thu, Dec 10, 2009 at 10:43 PM, David Winsemius <dwinsem...@comcast.net>wrote: > > 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 > > [[alternative HTML version deleted]]
______________________________________________ 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.
