Update 2_Manipulate data.R