Create data_gathering.R