Create plot3.R

needed 

internet was down 
uploading now