plots and Rcode for project assignment 1