Coursera R

This is for coursera R week 3 assignment