assigment 1 of Exploratory data analysis with R