Create plot3.R

initial version of plot3.R