prettied up load_data.R