Create setup.R

first plot3d