provided a R script to visualize 3d data