R-scripts and plots for 1st assignment in EXD