Coursera R course  secong assignement