Update create_data.R