> 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