Update Data_Gathering.R

minor change