Added R Code for reading subset data