R project 1 of Exploratory Data Analysis