Tentei rodar e não consegui!

> wireframe(z ~ x + y,
+           data = grid,
+           scales = list(arrows = FALSE),
+           zlim = extendrange(grid$z, f = 0.5),
+           panel.3d.wireframe = panel.3d.contour,
+           nlevels = 18,
+           col = "gray30",
+           type = c("on", "top", "bottom"),
+           col.regions = colr(101),
+           drape = TRUE)
Error in cloud.formula(x = z ~ x + y, data = list(x = c(-1, -0.9, -0.8,  : 
  objeto 'panel.3d.contour' não encontrado
 


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.

source("https://raw.githubusercontent.com/walmes/wzRfun/master/R/panel.3d.contour.R")

library(lattice)
library(RColorBrewer)

colr <- brewer.pal(11, "Spectral")
colr <- colorRampPalette(colr, space = "rgb")

grid <- expand.grid(x = seq(-1, 1, by = 0.1),
                    y = seq(-1, 1, by = 0.1))
grid$z <- with(grid, 1 + 0.01 * x + 0.05 * y -
                     0.5 * x * y - 0.5 * x^2 - 0.2 * y^2)

wireframe(z ~ x + y,
          data = grid,
          scales = list(arrows = FALSE),
          zlim = extendrange(grid$z, f = 0.5),
          panel.3d.wireframe = panel.3d.contour,
          nlevels = 18,
          col = "gray30",
          type = c("on", "top", "bottom"),
          col.regions = colr(101),
          drape = TRUE)
À
​ disposição.
Walmes.​


_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.