regular.fan <- fan.sphere (angle = 30)
head (regular.fan$xyz)
random.fan <- fan.sphere (angle = 30, method = "random")
head (random.fan$xyz)
if (interactive()){
rgl::open3d ()
rgl::points3d (regular.fan$xyz)
rgl::open3d ()
rgl::points3d (random.fan$xyz)
}
Run the code above in your browser using DataLab