finish load_data.r