This is my assignment 2 - R prog - Coursera