Modification of plot1.R and new script plot2.R

Modified Plot1 script to use as.date function properly and added Plot2
scripts