Project 1 script made

See README file for instructions. Made R script for project 1 in
Reproducible Research.