Assigmnet #2 for R Programming Class