R-Coursera-Assignment1