# \donttest{
if (requireNamespace("rgl")) {
n <- 50
x <- toPiInt(rnorm(n, mean = seq(-pi, pi, l = n), sd = 0.5))
y <- toPiInt(rnorm(n, mean = seq(-pi, pi, l = n), sd = 0.5))
z <- toPiInt(x + y + rnorm(n, mean = seq(-pi, pi, l = n), sd = 0.5))
rgl::plot3d(x, y, z, xlim = c(-pi, pi), ylim = c(-pi, pi),
zlim = c(-pi, pi), col = rainbow(n), size = 2,
box = FALSE, axes = FALSE)
torusAxis3d()
}
# }
Run the code above in your browser using DataLab