Creating plot3.R

This is the third script as needed by assignment