Create Reading_PreparaingData.R