Courera Reproducible Research assingment 1