<div dir="ltr"><div style="font-family:trebuchet ms,sans-serif" class="gmail_default">A função panel.3d.contour.R foi feita a partir de soluções extraídas de listas de discussão. O exemplo abaixo ilustra como usar. Para mais informações, consulte a documentação da função.<br></div><div style="font-family:trebuchet ms,sans-serif" class="gmail_default"><br>​<span style="font-family:monospace,monospace">source("<a href="https://raw.githubusercontent.com/walmes/wzRfun/master/R/panel.3d.contour.R">https://raw.githubusercontent.com/walmes/wzRfun/master/R/panel.3d.contour.R</a>")<br><br>library(lattice)<br>library(RColorBrewer)<br><br>colr <- brewer.pal(11, "Spectral")<br>colr <- colorRampPalette(colr, space = "rgb")<br><br>grid <- expand.grid(x = seq(-1, 1, by = 0.1),<br>                    y = seq(-1, 1, by = 0.1))<br>grid$z <- with(grid, 1 + 0.01 * x + 0.05 * y -<br>                     0.5 * x * y - 0.5 * x^2 - 0.2 * y^2)<br><br>wireframe(z ~ x + y,<br>          data = grid,<br>          scales = list(arrows = FALSE),<br>          zlim = extendrange(grid$z, f = 0.5),<br>          panel.3d.wireframe = panel.3d.contour,<br>          nlevels = 18,<br>          col = "gray30",<br>          type = c("on", "top", "bottom"),<br>          col.regions = colr(101),<br>          drape = TRUE)<br>​</span></div>À<div style="font-family:trebuchet ms,sans-serif;display:inline" class="gmail_default">​ disposição.<br></div><div style="font-family:trebuchet ms,sans-serif;display:inline" class="gmail_default">Walmes.​</div><br><br></div>