Updated Plot3 and R.code for plot3, Added Plot4 and R.code for plot4