R Homework 4

Subsetting Data