Update organising_data.R