# NOT RUN {
x <- rnorm(100)
y <- rnorm(100)*2
z <- rnorm(100)*3
open3d()
plot3d(x, y, z)
aspect3d(1, 1, 0.5)
highlevel() # To trigger display
open3d()
plot3d(x, y, z)
aspect3d("iso")
highlevel()
# }
Run the code above in your browser using DataLab