Create prep_data.R