x <- rnorm(100)
y <- rnorm(100)
z <- rnorm(100)
p <- plot3d(x, y, z, type='s')
rgl.ids()
lines3d(x, y, z)
rgl.ids()
if (interactive()) {
readline("Hit enter to change spheres")
rgl.pop(id = p["data"])
spheres3d(x, y, z, col="red", radius=1/5)
box3d()
}
Run the code above in your browser using DataLab