Initial Commit of R scripts and png files