RG#46: 3D-spinning scatter plots

set.seed(12444)
X = rnorm (1000, 50, 10)
Y = X*0.6+rnorm(length(X), 0, 10)
Z = Y*0.3+ +rnorm(length(X), 0, 10) 

# using rgl package 

library(rgl)

plot3d(Z, X, Y, col="red", size=3)

# another using package Rcmdr 

library(Rcmdr)

scatter3d(Z, X, Y)