Assignment2_DataPull_R_File