Create Data_Extraction.R