Create plot3.R

Initial version