Create set_data.R