# NOT RUN {
#Creates a hemisphere of points each 2 degrees
zenith <- seq(0, 90, 2)
azimuth <- seq(0, 360, 2)
hemi <- CJ(zenith, azimuth)
hemi$distance <- 1
hemicloud <- polar_to_cartesian(hemi)
rgl::plot3d(hemicloud)
# }
Run the code above in your browser using DataLab