couraera R programming(rprog-017) programming assignment 2