coursera R Programin assignement 2