<font face="trebuchet ms,sans-serif">Ivan,<br><br>Modifiquei a função para sinalizar a coordenada do ponto de sela, veja<br><br><span style="font-family: courier new,monospace;">panel.3d.contour <- function(x, y, z, zlim.scaled,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> rot.mat, distance, nlevels=40,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> X, Y, Z, pcol=2, pcex=2, ppch="+", ...){</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> panel.3dwire(x=x, y=y, z=z, rot.mat=rot.mat,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> distance=distance, zlim.scaled=zlim.scaled, ...)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> panel.3dscatter(x=X, y=Y, z=Z, dist=distance,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> zlim.scaled=zlim.scaled, type="p", col=pcol,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> cex=pcex, pch=ppch, ...)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> add.line <- trellis.par.get("add.line")</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> clines <- contourLines(x, y, matrix(z, nrow = length(x), byrow = TRUE), nlevels = nlevels)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> for (ll in clines){</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> m <- ltransform3dto3d(rbind(ll$x, ll$y, zlim.scaled[1]), rot.mat, distance)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> panel.lines(m[1,], m[2,], col = add.line$col, lty = add.line$lty, lwd = add.line$lwd)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> }</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">}</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">wireframe(z~x+y, da, drape=TRUE, scales=list(arrows=FALSE), nlevels=10,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> X=0, Y=0, Z=0, ppch=19, pcex=1.2, pcol="white",</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> col.regions=jet.colors(100), panel.3d.wireframe=panel.3d.contour)</span><br style="font-family: courier new,monospace;"><br>À disposição.<br>Walmes.<br><br><br clear="all">
</font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>
<br><br><div class="gmail_quote">2011/6/11 Walmes Zeviani <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<font face="trebuchet ms,sans-serif">Ivan,<br><br>A última mensagem dessa seqüência de mensagens faz a adição de um ponto a superfície. Tente partir daí. O segundo link também pode ser útil.<br><br><a href="http://r.789695.n4.nabble.com/lattice-wireframe-quot-eats-up-quot-points-how-to-make-points-on-wireframe-visible-td3334836.html" target="_blank">http://r.789695.n4.nabble.com/lattice-wireframe-quot-eats-up-quot-points-how-to-make-points-on-wireframe-visible-td3334836.html</a><br>
<br><a href="http://stackoverflow.com/questions/1406202/plotting-a-wireframe-and-a-cloud-with-lattice-in-r" target="_blank">http://stackoverflow.com/questions/1406202/plotting-a-wireframe-and-a-cloud-with-lattice-in-r</a><br>
<br>À disposição.<br>
Walmes.<br><br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>
</blockquote></div><br>