<div dir="ltr">Obrigado Prof. Walmes pela disponibilidade de sempre!<div><br></div><div>Att,</div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><span style="font-family:Arial,sans-serif;font-size:10pt;text-align:left">Fernando de Souza Bastos</span></div><div dir="ltr"><font face="Arial, sans-serif"><span style="font-size:13.3333px">Professor Assistente<br></span></font><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><span style="font-family:Arial,sans-serif;font-size:10pt;text-align:left">Universidade Federal de Viçosa (UFV)</span></div><div dir="ltr"><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><span>Campus UFV - Florestal</span><br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><span><div style="text-align:-webkit-auto">Doutorando em Estatística</div><div style="text-align:-webkit-auto">Universidade Federal de Minas Gerais (UFMG)</div><div style="text-align:-webkit-auto">Cel: (31) 99751-6586</div><div style="text-align:-webkit-auto"><br></div><div style="text-align:-webkit-auto"><br></div></span><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote>

<p>


</p></div></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 7 de maio de 2017 22:51, Walmes Zeviani <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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" target="_blank">https://raw.<wbr>githubusercontent.com/walmes/<wbr>wzRfun/master/R/panel.3d.<wbr>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.<span class="HOEnZb"><font color="#888888"><br></font></span></div><span class="HOEnZb"><font color="#888888"><div style="font-family:trebuchet ms,sans-serif;display:inline" class="gmail_default">Walmes.​</div><br><br></font></span></div>
</blockquote></div><br></div>