<div> </div>
<div> <span style="font-size: medium; color: #0000ff;">Tentei rodar e não consegui!</span></div>
<div><br />
<div>> wireframe(z ~ x + y,</div>
<div>+           data = grid,</div>
<div>+           scales = list(arrows = FALSE),</div>
<div>+           zlim = extendrange(grid$z, f = 0.5),</div>
<div>+           panel.3d.wireframe = panel.3d.contour,</div>
<div>+           nlevels = 18,</div>
<div>+           col = "gray30",</div>
<div>+           type = c("on", "top", "bottom"),</div>
<div>+           col.regions = colr(101),</div>
<div>+           drape = TRUE)</div>
<div>Error in cloud.formula(x = z ~ x + y, data = list(x = c(-1, -0.9, -0.8,  : </div>
<div>  objeto 'panel.3d.contour' não encontrado</div>
</div>
<div> </div>
<div><br /><br /></div>
<div dir="ltr">
<div class="gmail_default" style="font-family: trebuchet ms,sans-serif;">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.</div>
<div class="gmail_default" style="font-family: trebuchet ms,sans-serif;"><br />​<span style="font-family: monospace,monospace;">source("<a href="https://raw.githubusercontent.com/walmes/wzRfun/master/R/panel.3d.contour.R" target="_blank">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 class="gmail_default" style="font-family: trebuchet ms,sans-serif; display: inline;">​ disposição.</div>
<div class="gmail_default" style="font-family: trebuchet ms,sans-serif; display: inline;">Walmes.​</div>
<br /><br /></div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<br /><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>