# NOT RUN {
x <- rnorm(50)
y <- rnorm(50)
z <- rnorm(50)
scaling <- rp.plot3d(x, y, z, xlim = c(-3, 3))
# In addition you may add a line to the plot with these two lines;
# a <- scaling(c(-3,3), c(0,0), c(0,0))
# lines3d(a$x, a$y, a$z, col = "green", size = 2)
# }
Run the code above in your browser using DataLab