rgl.open()
rgl.points(rnorm(100), rnorm(100), rnorm(100))
rgl.bbox(color=c("#333377","white"), emission="#333377", specular="#3333FF", shininess=5, alpha=0.8 )
open3d()
points3d(rnorm(100), rnorm(100), rnorm(100))
bbox3d(color=c("#333377","white"), emission="#333377", specular="#3333FF", shininess=5, alpha=0.8)
Run the code above in your browser using DataLab