# \donttest{
grid <- seq(-pi, pi, l = 100)
plotSurface2D(grid, grid, f = function(x) sin(x[1]) * cos(x[2]), nLev = 20)
plotSurface2D(grid, grid, f = function(x) sin(x[, 1]) * cos(x[, 2]),
levels = seq(-1, 1, l = 10), fVect = TRUE)
# }
Run the code above in your browser using DataLab