Nice 3D plot made using the plot3d package. Thanks to Carlos Ortega for the sending.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
# library library(plot3D) # Create data x <- y <- z <- seq(-4, 4, by = 0.2) M <- mesh(x, y, z) R <- with (M, sqrt(x^2 + y^2 + z^2)) p <- sin(2*R) /(R+1e-3) alpha = 0.5 # Make the plot slice3D(x, y, z, colvar = p, col = jet.col(alpha = 0.5), xs = 0, ys = c(-4, 0, 4), zs = NULL, d = 2) |

Not what you are looking for ? Make a new search !

`[mediatagger]`

## Leave a Reply