R script files and figures for pa1 exploring data