# \donttest{
if (requireNamespace("rgl")) {
x <- seq(-pi, pi, l = 50)
f <- function(x) 10 * (sin(x[, 1]) * cos(x[, 2]) - sin(x[, 3]))^2
t <- plotSurface3D(x, x, x, size = 10, alpha = 0.01, fVect = TRUE, f = f)
plotSurface3D(x, x, x, t = t, size = 15, alpha = 0.1,
levels = quantile(t, probs = seq(0, 0.1, l = 20)))
}
# }
Run the code above in your browser using DataLab