Create load_data.R