Create plot3.R

INIT