Initial Implementation

This is my initial implementation of the 2nd R programming assignment